where
-- System imports.
+import Control.Applicative ( (<$>) )
import Control.Monad ( forM_, join )
import Data.Time ( UTCTime(..) )
import Data.Tuple.Curry ( uncurryN )
(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.