Data.Time.RFC{733,822} now compiles.

[time-http.git] / Data / Time / RFC1123 / Internal.hs

diff --git a/Data/Time/RFC1123/Internal.hs b/Data/Time/RFC1123/Internal.hs
index b7bb6c9a3521056473d6da77c6b74cc3ed251690..1dc2a1ddbd426a0a2929c350a2a6361943ff5853 100644 (file)
--- 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 ", "