X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FScores.hs;h=adbd5cd9badb0e1a9bdb035bc91f698cc76f17dc;hb=14dc52a2e7d7712281aee2332f7342f67abe4306;hp=8e9f65f6b2e9689a0ff2071dd72ea324a2d083fe;hpb=7e1865e656ebbbba9566c7ace61176635fdeabe5;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/Scores.hs b/src/TSN/XML/Scores.hs
index 8e9f65f..adbd5cd 100644
--- a/src/TSN/XML/Scores.hs
+++ b/src/TSN/XML/Scores.hs
@@ -219,8 +219,8 @@ instance FromXmlFkTeams ScoreGameXml where
       db_home_team_id = fk_home,
       db_away_team_score = xml_away_team_score,
       db_home_team_score = xml_home_team_score,
-      db_away_team_pitcher = (xml_vpitcher $ xml_vteam),
-      db_home_team_pitcher = (xml_hpitcher $ xml_hteam),
+      db_away_team_pitcher = xml_vpitcher xml_vteam,
+      db_home_team_pitcher = xml_hpitcher xml_hteam,
       db_time_r = xml_time_r,
       db_status = xml_status,
       db_notes = xml_notes }