module Data.Time.RFC822
( format
, parse
+
+ -- private
+ , showRFC822TimeZone
)
where
, ":"
, show2 (floor (todSec timeOfDay))
, " "
- , showTZ timeZone
+ , showRFC822TimeZone timeZone
]
+showRFC822TimeZone :: TimeZone -> String
+showRFC822TimeZone tz
+ | timeZoneMinutes tz == 0 = "GMT"
+ | otherwise = show4digitsTZ tz
+
parse :: String -> Maybe ZonedTime
parse src = case P.parse p "" src of
Right zt -> Just zt
Left _ -> Nothing
where
- p = do zt <- parser
+ p = do zt <- rfc822DateAndTime
_ <- P.eof
return zt