X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=Data%2FTime%2FRFC822.hs;h=8feeb764e1b2c0b6ed05c1178436061240caeeb1;hb=269a28dfe8b08af854f7217bbe9c141c9c18f1ec;hp=fa4f8efe7d532046dae63901884f54110f43751a;hpb=01d923fe509a76afa27efdc7370438c5d4900492;p=time-http.git

diff --git a/Data/Time/RFC822.hs b/Data/Time/RFC822.hs
index fa4f8ef..8feeb76 100644
--- a/Data/Time/RFC822.hs
+++ b/Data/Time/RFC822.hs
@@ -66,7 +66,7 @@ format zonedTime
                , ":"
                , show2 (floor (todSec timeOfDay))
                , " "
-               , showTZ timeZone
+               , show4digitsTZ timeZone
                ]
 
 parse :: String -> Maybe ZonedTime
@@ -74,6 +74,6 @@ parse src = case P.parse p "" src of
               Right zt -> Just zt
               Left  _  -> Nothing
     where
-      p = do zt <- parser
+      p = do zt <- rfc822DateAndTime
              _  <- P.eof
              return zt