xmltrees <- mapM unsafe_read_document game_info_test_files
let msgs = rights $ map (parse_xml "dummy") xmltrees
actual <- withSqliteConn ":memory:" $ runDbConn $ do
- runMigration silentMigrationLogger $ do
+ runMigration silentMigrationLogger $
migrate (undefined :: GameInfo)
mapM_ dbimport msgs
countAll (undefined :: GameInfo)