+ from_tuple = uncurryN MLBBoxScoreMiscPitchingStatsXml
+ to_tuple MLBBoxScoreMiscPitchingStatsXml{..} =
+ (xml_wild_pitches, xml_intentional_walks, xml_hits_by_pitch)
+
+
+pickle_intentional_walks :: PU [MLBBoxScoreMiscPitchingStatsIntentionalWalkXml]
+pickle_intentional_walks =
+ xpElem "Intentional_Walks" $ xpList $ xpElem "IW_Listing" $
+ xpWrap (from_tuple, to_tuple) $
+ xpTriple (xpElem "IW_Batter_ID" xpInt)
+ (xpElem "IW_Pitcher_ID" xpInt)
+ (xpElem "IW_Number_Of_Times_Walked" xpInt)
+ where
+ from_tuple = uncurryN MLBBoxScoreMiscPitchingStatsIntentionalWalkXml
+ to_tuple MLBBoxScoreMiscPitchingStatsIntentionalWalkXml{..} =
+ (xml_iw_batter_id, xml_iw_pitcher_id, xml_iw_number_of_times_walked)
+
+
+pickle_hits_by_pitch :: PU [MLBBoxScoreMiscPitchingStatsHitByPitchXml]
+pickle_hits_by_pitch =
+ xpElem "Hit_By_Pitch" $ xpList $ xpElem "HBP_Listing" $
+ xpWrap (from_tuple, to_tuple) $
+ xpTriple (xpElem "HBP_Batter_ID" xpInt)
+ (xpElem "HBP_Pitcher_ID" xpInt)
+ (xpElem "HBP_Number_Of_Times_Hit" xpInt)
+ where
+ from_tuple = uncurryN MLBBoxScoreMiscPitchingStatsHitByPitchXml
+ to_tuple MLBBoxScoreMiscPitchingStatsHitByPitchXml{..} =
+ (xml_hbp_batter_id, xml_hbp_pitcher_id, xml_hbp_number_of_times_hit)
+
+