fmtDec 2 (ctMin time)
++ ":" ++
fmtDec 2 (ctSec time)
- ++ ":" ++
+ ++ " " ++
id (ctTZName time)
parseHTTPDateTime :: String -> Maybe ClockTime
parseHTTPDateTime src
= case parseStr httpDateTime src of
- (Success ct, _) -> Just ct
- _ -> Nothing
+ (# Success ct, _ #) -> Just ct
+ (# _ , _ #) -> Nothing
httpDateTime :: Parser ClockTime