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,
"CBASK_FGPctXML.dtd",
"CBASK_FoulsXML.dtd",
"CBASK_FTPctXML.dtd",
+ "Cbask_Indv_No_Avg_XML.dtd",
"Cbask_Indv_Scoring_XML.dtd",
+ "Cbask_Indv_Shooting_XML.dtd",
"CBASK_MinutesXML.dtd",
"Cbask_Polls_XML.dtd",
"CBASK_ReboundsXML.dtd",
"CBASK_ScoringLeadersXML.dtd",
+ "Cbask_Team_Scoring_Rebound_Margin_XML.dtd",
+ "Cbask_Team_Scoring_XML.dtd",
+ "Cbask_Team_Shooting_Pct_XML.dtd",
"Cbask_Team_ThreePT_Made_XML.dtd",
"Cbask_Team_ThreePT_PCT_XML.dtd",
"Cbask_Team_Win_Pct_XML.dtd",
"NFLGrassTurfDomeOutsideXML.dtd",
"NFLGiveTakeXML.dtd",
"NFLInside20XML.dtd",
+ "NFLInterceptionLeadersXML.dtd",
"NFLKickoffsXML.dtd",
"NFLMondayNightXML.dtd",
+ "NFLPassingLeadersXML.dtd",
"NFLPassLeadXML.dtd",
"NFLQBStartsXML.dtd",
+ "NFLReceivingLeadersXML.dtd",
+ "NFLRushingLeadersXML.dtd",
"NFLSackLeadersXML.dtd",
"nflstandxml.dtd",
+ "NFLTackleFFLeadersXML.dtd",
"NFLTeamRankingsXML.dtd",
+ "NFLTopKickoffReturnXML.dtd",
"NFLTopPerformanceXML.dtd",
+ "NFLTopPuntReturnXML.dtd",
"NFLTotalYardageXML.dtd",
+ "NFLYardsXML.dtd",
"NFL_KickingLeaders_XML.dtd",
"NFL_NBA_Draft_XML.dtd",
+ "NFL_PuntingLeaders_XML.dtd",
"NFL_Roster_XML.dtd",
"NFL_Team_Stats_XML.dtd",
"Transactions_XML.dtd",
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)