import Data.Data ( Data )
import Data.Typeable ( Typeable )
import Database.Groundhog (
- defaultMigrationLogger,
- migrate,
- runMigration )
+ migrate )
import Database.Groundhog.TH (
defaultCodegenConfig,
groundhog,
xpWrap )
-import TSN.DbImport ( DbImport(..), ImportResult(..) )
+import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.XmlImport ( XmlImport(..) )
import Xml ( FromXml(..), pickle_unpickle, unpickleable )
instance DbImport Message where
dbimport msg = mapM_ insert_xml (listings msg) >> return ImportSucceeded
- dbmigrate _ =
- runMigration defaultMigrationLogger $ migrate (undefined :: Listing)
+ dbmigrate _ = run_dbmigrate $ migrate (undefined :: Listing)
mkPersist defaultCodegenConfig [groundhog|
- entity: Listing