Fix hlint warnings.

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

diff --git a/src/TSN/XML/Scores.hs b/src/TSN/XML/Scores.hs
index 8e9f65f6b2e9689a0ff2071dd72ea324a2d083fe..adbd5cd9badb0e1a9bdb035bc91f698cc76f17dc 100644 (file)
--- 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 }