Fix hlint suggestions.

[dead/htsn-import.git] / src / TSN / XML / MLBBoxScore.hs

diff --git a/src/TSN/XML/MLBBoxScore.hs b/src/TSN/XML/MLBBoxScore.hs
index e7672500517089479c75a1584b53d02c7a03f3b8..67ba23659422439a8d7179dc13acc1ffe576a011 100644 (file)
--- 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'  _ = ()