--
mkPersist defaultCodegenConfig [groundhog|
- entity: SportInfo
+ dbName: sport_info
constructors:
- name: SportInfo
uniques:
xmltrees <- mapM unsafe_read_document sport_info_test_files
let msgs = rights $ map (parse_xml "dummy") xmltrees
actual <- withSqliteConn ":memory:" $ runDbConn $ do
- runMigration silentMigrationLogger $ do
+ runMigration silentMigrationLogger $
migrate (undefined :: SportInfo)
mapM_ dbimport msgs
countAll (undefined :: SportInfo)