import Data.Time ( UTCTime )
import Data.Tuple.Curry ( uncurryN )
import Database.Groundhog (
- defaultMigrationLogger,
- migrate,
- runMigration )
+ migrate )
import Database.Groundhog.TH (
defaultCodegenConfig,
groundhog,
xpWrap )
import TSN.Picklers( xp_date, xp_team_id )
-import TSN.DbImport ( DbImport(..), ImportResult(..) )
+import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.XmlImport ( XmlImport(..) )
import Xml ( FromXml(..), pickle_unpickle, unpickleable )
mapM_ insert_xml (concatMap player_listings $ listings msg)
return ImportSucceeded
- dbmigrate _ =
- runMigration defaultMigrationLogger $ migrate (undefined :: PlayerListing)
+ dbmigrate _ = run_dbmigrate $ migrate (undefined :: PlayerListing)
mkPersist defaultCodegenConfig [groundhog|
- entity: PlayerListing