X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC1123%2FInternal.hs;fp=Data%2FTime%2FRFC1123%2FParsec.hs;h=b7bb6c9a3521056473d6da77c6b74cc3ed251690;hp=08c989c8f43dfbd1f57cc40b5c2e231f54f50108;hb=82afb594c5b4254385435491700befcbea185a5d;hpb=b6bd963751a3da2fd2961be19d42a45f4b098b96 diff --git a/Data/Time/RFC1123/Parsec.hs b/Data/Time/RFC1123/Internal.hs similarity index 93% rename from Data/Time/RFC1123/Parsec.hs rename to Data/Time/RFC1123/Internal.hs index 08c989c..b7bb6c9 100644 --- a/Data/Time/RFC1123/Parsec.hs +++ b/Data/Time/RFC1123/Internal.hs @@ -1,16 +1,14 @@ {-# LANGUAGE FlexibleContexts #-} -module Data.Time.RFC1123.Parsec +module Data.Time.RFC1123.Internal ( rfc1123DateAndTime ) where - import Control.Monad import Data.Fixed import Data.Time import Data.Time.Calendar.WeekDate import Data.Time.HTTP.Common -import Data.Time.RFC822.Parsec -import Text.Parsec +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