X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC733.hs;h=c7a1e6b4e879281ba31ba1dcfad4e06c353e1103;hp=a5e28d3b9bdd5c34d8a659580269dd060476320d;hb=c889f6f399e0e3c8bf6327323bbb838e06c9b7f9;hpb=01d923fe509a76afa27efdc7370438c5d4900492 diff --git a/Data/Time/RFC733.hs b/Data/Time/RFC733.hs index a5e28d3..c7a1e6b 100644 --- a/Data/Time/RFC733.hs +++ b/Data/Time/RFC733.hs @@ -75,7 +75,7 @@ format zonedTime , ":" , show2 (floor (todSec timeOfDay)) , " " - , showTZ timeZone + , show4digitsTZ timeZone ] parse :: String -> Maybe ZonedTime