(to_time_stamp, from_time_stamp) `xpWrapMaybe` xpText
where
-- This omits the timezone and trailing space.
- format = " %B %-d, %Y, at " ++ xp_time_format ++ " ET "
+ format = "%B %-d, %Y, at " ++ xp_time_format ++ " ET"
five_hours :: NominalDiffTime
five_hours = 5 * 60 * 60