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

diff --git a/Data/Time/RFC733/Parsec.hs b/Data/Time/RFC733/Parsec.hs
index baf2469..996c94e 100644
--- a/Data/Time/RFC733/Parsec.hs
+++ b/Data/Time/RFC733/Parsec.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE FlexibleContexts #-}
 module Data.Time.RFC733.Parsec
-    ( parser
+    ( rfc733DateAndTime
     )
     where
 
@@ -12,8 +12,8 @@ import Data.Time.HTTP.Common
 import Text.Parsec
 
 
-parser :: Stream s m Char => ParsecT s u m ZonedTime
-parser = dateTime
+rfc733DateAndTime :: Stream s m Char => ParsecT s u m ZonedTime
+rfc733DateAndTime = dateTime
 
 dateTime :: Stream s m Char => ParsecT s u m ZonedTime
 dateTime = do weekDay <- optionMaybe $