week :: [String]
week = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"]
--- |Format a @CalendarTime@ to RFC 1123 Date and Time string.
+-- |Format a 'System.Time.CalendarTime' to RFC 1123 Date and Time
+-- string.
formatRFC1123DateTime :: CalendarTime -> String
formatRFC1123DateTime time
= time `seq`
fmtDec 2 (ctMin time)
++ ":" ++
fmtDec 2 (ctSec time)
- ++ ":" ++
+ ++ " " ++
id (ctTZName time)
--- |Format a @ClockTime@ to HTTP Date and Time. Time zone will be
--- always UTC but prints as GMT.
+-- |Format a 'System.Time.ClockTime' to HTTP Date and Time. Time zone
+-- will be always UTC but prints as GMT.
formatHTTPDateTime :: ClockTime -> String
formatHTTPDateTime time
= time `seq`
parseHTTPDateTime :: String -> Maybe ClockTime
parseHTTPDateTime src
= case parseStr httpDateTime src of
- (Success ct, _) -> Just ct
- _ -> Nothing
+ (# Success ct, _ #) -> Just ct
+ (# _ , _ #) -> Nothing
httpDateTime :: Parser ClockTime