X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC733.hs;h=615ce2a43781c2cfccedee3a71aa8bd4ef979f8d;hp=c7a1e6b4e879281ba31ba1dcfad4e06c353e1103;hb=269a28dfe8b08af854f7217bbe9c141c9c18f1ec;hpb=c889f6f399e0e3c8bf6327323bbb838e06c9b7f9

diff --git a/Data/Time/RFC733.hs b/Data/Time/RFC733.hs
index c7a1e6b..615ce2a 100644
--- a/Data/Time/RFC733.hs
+++ b/Data/Time/RFC733.hs
@@ -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