import Database.Groundhog (
countAll,
insert_,
- migrate,
- runMigration,
- silentMigrationLogger )
-import Database.Groundhog.Generic ( runDbConn )
+ migrate )
+import Database.Groundhog.Generic ( runDbConn, runMigrationSilent )
import Database.Groundhog.Sqlite ( withSqliteConn )
import Database.Groundhog.TH (
defaultCodegenConfig,
xmltrees <- mapM unsafe_read_document sport_info_test_files
let msgs = rights $ map (parse_xml "dummy") xmltrees
actual <- withSqliteConn ":memory:" $ runDbConn $ do
- runMigration silentMigrationLogger $
+ runMigrationSilent $
migrate (undefined :: SportInfo)
mapM_ dbimport msgs
countAll (undefined :: SportInfo)