, read2
, read4
- , showTZ
+ , show4digitsTZ
, read4digitsTZ
, assertWeekDayIsGood
fromC '9' = 9
fromC _ = undefined
-showTZ :: TimeZone -> String
-showTZ tz
+show4digitsTZ :: TimeZone -> String
+show4digitsTZ tz
= case timeZoneMinutes tz of
offset | offset < 0 -> '-' : showTZ' (negate offset)
| otherwise -> '+' : showTZ' offset