, showTZ timeZone
]
-showTZ :: TimeZone -> String
-showTZ tz
- = case timeZoneMinutes tz of
- offset | offset < 0 -> '-' : showTZ' (negate offset)
- | otherwise -> '+' : showTZ' offset
- where
- showTZ' offset
- = let h = offset `div` 60
- m = offset - h * 60
- in
- concat [show2 h, show2 m]
-
parse :: String -> Maybe ZonedTime
parse src = case P.parse p "" src of
Right zt -> Just zt