xpWrapMaybe )
import Text.XML.HXT.Arrow.Pickle.Xml ( PU )
+-- Local imports.
+import TSN.Parse (
+ parse_time_stamp,
+ time_format,
+ time_stamp_format )
+
-- | (Un)pickle a UTCTime without the time portion.
--
--- | The time format string used in 'xp_time' and 'xp_time_stamp'.
---
-xp_time_format :: String
-xp_time_format = "%I:%M %p"
+
-- | (Un)pickle a UTCTime without the date portion.
(to_time, from_time) `xpWrapMaybe` xpText
where
to_time :: String -> Maybe UTCTime
- to_time = parseTime defaultTimeLocale xp_time_format
+ to_time = parseTime defaultTimeLocale time_format
from_time :: UTCTime -> String
- from_time = formatTime defaultTimeLocale xp_time_format
+ from_time = formatTime defaultTimeLocale time_format
-- | (Un)pickle a UTCTime without the date portion, allowing for a
to_time :: String -> Maybe UTCTime
to_time s
| s == "TBA" = Nothing
- | otherwise = parseTime defaultTimeLocale xp_time_format s
+ | otherwise = parseTime defaultTimeLocale time_format s
from_time :: Maybe UTCTime -> String
from_time Nothing = ""
- from_time (Just t) = formatTime defaultTimeLocale xp_time_format t
+ from_time (Just t) = formatTime defaultTimeLocale time_format t
+
-- | (Un)pickle the \<time_stamp\> element format to/from a 'UTCTime'.
--
xp_time_stamp :: PU UTCTime
xp_time_stamp =
- (to_time_stamp, from_time_stamp) `xpWrapMaybe` xpText
+ (parse_time_stamp, from_time_stamp) `xpWrapMaybe` xpText
where
- -- This omits the timezone and trailing space.
- format = "%B %-d, %Y, at " ++ xp_time_format ++ " ET"
-
five_hours :: NominalDiffTime
five_hours = 5 * 60 * 60
- add_five :: UTCTime -> UTCTime
- add_five = addUTCTime five_hours
-
subtract_five :: UTCTime -> UTCTime
subtract_five = addUTCTime (-1 * five_hours)
- to_time_stamp :: String -> Maybe UTCTime
- to_time_stamp = fmap add_five . parseTime defaultTimeLocale format
-
from_time_stamp :: UTCTime -> String
- from_time_stamp = formatTime defaultTimeLocale format . subtract_five
+ from_time_stamp =
+ formatTime defaultTimeLocale time_stamp_format . subtract_five