RFC1123

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

diff --git a/Data/Time/RFC822.hs b/Data/Time/RFC822.hs
index c31c2448de6c2914938daa1c5ea1ed436938271c..8feeb764e1b2c0b6ed05c1178436061240caeeb1 100644 (file)
--- a/Data/Time/RFC822.hs
+++ b/Data/Time/RFC822.hs
@@ -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