+ from_date = formatTime defaultTimeLocale date_format_padded
+
+
+-- | (Un)pickle a 'UTCTime' from a \<RaceDate\> element in an
+-- 'AutoRaceResults' message.
+--
+-- Example:
+--
+-- <RaceDate>6/1/2014 1:00:00 PM</RaceDate>
+-- <RaceDate>5/24/2014 2:45:00 PM</RaceDate>
+--
+xp_racedate :: PU UTCTime
+xp_racedate =
+ (to_racedate, from_racedate) `xpWrapMaybe` xpText
+ where
+ format = date_format ++ " " ++ "%-I:%M:%S %p"
+
+ to_racedate :: String -> Maybe UTCTime
+ to_racedate = parseTime defaultTimeLocale format
+
+ from_racedate :: UTCTime -> String
+ from_racedate = formatTime defaultTimeLocale format