X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC1123%2FInternal.hs;h=1dc2a1ddbd426a0a2929c350a2a6361943ff5853;hp=b7bb6c9a3521056473d6da77c6b74cc3ed251690;hb=512f9a871149c7dd20d0c1c86cb230fbb7dc43f6;hpb=d39ace5728c981d8c9d83fe8eefcd811dbb1e8aa

diff --git a/Data/Time/RFC1123/Internal.hs b/Data/Time/RFC1123/Internal.hs
index b7bb6c9..1dc2a1d 100644
--- a/Data/Time/RFC1123/Internal.hs
+++ b/Data/Time/RFC1123/Internal.hs
@@ -4,17 +4,18 @@ module Data.Time.RFC1123.Internal
     )
     where
 import Control.Monad
+import Data.Attoparsec.Char8
 import Data.Fixed
 import Data.Time
 import Data.Time.Calendar.WeekDate
 import Data.Time.HTTP.Common
 import Data.Time.RFC822.Internal
 
--- |This is a parsec parser for RFC 1123 date and time strings.
-rfc1123DateAndTime :: Stream s m Char => ParsecT s u m ZonedTime
+-- |Parse an RFC 1123 date and time string.
+rfc1123DateAndTime :: Parser ZonedTime
 rfc1123DateAndTime = dateTime
 
-dateTime :: Stream s m Char => ParsecT s u m ZonedTime
+dateTime :: Parser ZonedTime
 dateTime = do weekDay <- optionMaybe $
                          do w <- shortWeekDayNameP
                             _ <- string ", "