X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FOdds.hs;h=5174ddb927462266e80af42eb45171bb49975f41;hb=14dc52a2e7d7712281aee2332f7342f67abe4306;hp=1401c8143905b2ee2e795b8b91059920d7c62eb5;hpb=7e1865e656ebbbba9566c7ace61176635fdeabe5;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs
index 1401c81..5174ddb 100644
--- 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.