, ":"
, show2 (floor (todSec timeOfDay))
, " "
- , showTZ timeZone
+ , show4digitsTZ timeZone
]
parse :: String -> Maybe ZonedTime
Right zt -> Just zt
Left _ -> Nothing
where
- p = do zt <- parser
+ p = do zt <- rfc822DateAndTime
_ <- P.eof
return zt