RFC1123

[time-http.git] / Data / Time / RFC733.hs

diff --git a/Data/Time/RFC733.hs b/Data/Time/RFC733.hs
index a5e28d3b9bdd5c34d8a659580269dd060476320d..615ce2a43781c2cfccedee3a71aa8bd4ef979f8d 100644 (file)
--- 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
@@ -83,6 +83,6 @@ parse src = case P.parse p "" src of
               Right zt -> Just zt
               Left  _  -> Nothing
     where
-      p = do zt <- parser
+      p = do zt <- rfc733DateAndTime
              _  <- P.eof
              return zt