Fix hlint warnings.

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

diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs
index 1401c8143905b2ee2e795b8b91059920d7c62eb5..5174ddb927462266e80af42eb45171bb49975f41 100644 (file)
--- a/src/TSN/XML/Odds.hs
+++ b/src/TSN/XML/Odds.hs
@@ -23,6 +23,7 @@ module TSN.XML.Odds (
 where
 
 -- System imports.
+import Control.Applicative ( (<$>) )
 import Control.Monad ( forM_, join )
 import Data.Time ( UTCTime(..) )
 import Data.Tuple.Curry ( uncurryN )
@@ -308,16 +309,16 @@ instance FromXmlFkTeams OddsGameXml where
         (xml_team_rotation_number xml_home_team),
 
       db_away_team_starter_id =
-        (fmap fst $ xml_team_starter xml_away_team),
+        (fst <$> xml_team_starter xml_away_team),
 
       db_away_team_starter_name =
-        (fmap snd $ xml_team_starter xml_away_team),
+        (snd <$> xml_team_starter xml_away_team),
 
       db_home_team_starter_id =
-        (fmap fst $ xml_team_starter xml_home_team),
+        (fst <$> xml_team_starter xml_home_team),
 
       db_home_team_starter_name =
-        (fmap snd $ xml_team_starter xml_home_team) }
+        (snd <$> xml_team_starter xml_home_team) }
 
 
 -- | This lets us insert the XML representation 'OddsGameXml' directly.