X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn-import.git;a=blobdiff_plain;f=src%2FTSN%2FXML%2FMLBBoxScore.hs;h=67ba23659422439a8d7179dc13acc1ffe576a011;hp=e7672500517089479c75a1584b53d02c7a03f3b8;hb=7f22e74b4e21b1fd943c69214bffbd39961baa66;hpb=f6708a3fa86d84914e5c67e339f192460864c143

diff --git a/src/TSN/XML/MLBBoxScore.hs b/src/TSN/XML/MLBBoxScore.hs
index e767250..67ba236 100644
--- a/src/TSN/XML/MLBBoxScore.hs
+++ b/src/TSN/XML/MLBBoxScore.hs
@@ -620,6 +620,13 @@ instance DbImport Message where
   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
@@ -819,7 +826,7 @@ pickle_message =
 
 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'   _ = ()
@@ -868,9 +875,9 @@ pickle_batter :: PU MLBBoxScoreHomerunStatsListingBatter
 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
@@ -880,9 +887,9 @@ pickle_pitcher :: PU MLBBoxScoreHomerunStatsListingPitcherXml
 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
@@ -942,7 +949,7 @@ pickle_hits_by_pitch =
 
 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'  _ = ()