dbmigrate _ =
run_dbmigrate $ do
migrate (undefined :: MLBBoxScore)
+ migrate (undefined :: MLBBoxScoreMiscPitchingStatsIntentionalWalk)
+ migrate (undefined :: MLBBoxScoreMiscPitchingStatsHitByPitch)
+ migrate (undefined :: MLBBoxScoreHomerunStatsListing)
+ migrate (undefined :: MLBBoxScoreHomerunStatsListingPitcher)
+ migrate (undefined :: MLBBoxScoreTeamBreakdown)
+ migrate (undefined :: MLBBoxScoreRunsByInnings)
+ migrate (undefined :: MLBBoxScore_MLBBoxScoreTeamBreakdown)
-- | We insert the message.
dbimport m = do
pickle_team_summary :: PU MLBBoxScoreTeamSummaryXml
pickle_team_summary =
- xpElem "Team_Summary" $ xpWrap (from_tuple, to_tuple') $ xpUnit
+ xpElem "Team_Summary" $ xpWrap (from_tuple, to_tuple') xpUnit
where
from_tuple _ = MLBBoxScoreTeamSummaryXml
to_tuple' _ = ()
pickle_batter =
xpElem "HRS_Batter_ID" $
xpWrap (from_tuple, H.convert) $
- xp4Tuple (xpAttr "HRS_Batter_FirstName" $ xpText)
- (xpAttr "HRS_Batter_LastName" $ xpText)
- (xpAttr "RBIs" $ xpInt)
+ xp4Tuple (xpAttr "HRS_Batter_FirstName" xpText)
+ (xpAttr "HRS_Batter_LastName" xpText)
+ (xpAttr "RBIs" xpInt)
xpInt
where
from_tuple = uncurryN MLBBoxScoreHomerunStatsListingBatter
pickle_pitcher =
xpElem "HRS_Pitcher_ID" $
xpWrap (from_tuple, H.convert) $
- xp4Tuple (xpAttr "HRS_Homeruns_Off_Pitcher" $ xpInt)
- (xpAttr "HRS_Pitcher_FirstName" $ xpText)
- (xpAttr "HRS_Pitcher_LastName" $ xpText)
+ xp4Tuple (xpAttr "HRS_Homeruns_Off_Pitcher" xpInt)
+ (xpAttr "HRS_Pitcher_FirstName" xpText)
+ (xpAttr "HRS_Pitcher_LastName" xpText)
xpInt
where
from_tuple = uncurryN MLBBoxScoreHomerunStatsListingPitcherXml
pickle_miscellaneous_game_info :: PU MLBBoxScoreMiscellaneousGameInfoXml
pickle_miscellaneous_game_info =
- xpElem "Miscelaneous_Game_Info" $ xpWrap (from_tuple, to_tuple') $ xpUnit
+ xpElem "Miscelaneous_Game_Info" $ xpWrap (from_tuple, to_tuple') xpUnit
where
from_tuple _ = MLBBoxScoreMiscellaneousGameInfoXml
to_tuple' _ = ()