X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FHTTP%2FInternal.hs;fp=Data%2FTime%2FHTTP%2FInternal.hs;h=0000000000000000000000000000000000000000;hp=b008d9da6911d530050ae3d91a32efbf94afcd75;hb=1636662996d663cc800f4a2fa702739cfd24d3f4;hpb=0b73811d9193e427a59e005b48f2ded06ca9ab1c

diff --git a/Data/Time/HTTP/Internal.hs b/Data/Time/HTTP/Internal.hs
deleted file mode 100644
index b008d9d..0000000
--- a/Data/Time/HTTP/Internal.hs
+++ /dev/null
@@ -1,44 +0,0 @@
-{-# LANGUAGE
-    UnicodeSyntax
-  #-}
--- |Internal functions for "Data.Time.HTTP".
-module Data.Time.HTTP.Internal
-    ( httpDateAndTime
-    , toAsciiBuilder
-    )
-    where
-import Control.Applicative
-import Data.Ascii (AsciiBuilder)
-import Data.Attoparsec.Char8
-import Data.Convertible.Base
-import Data.Tagged
-import Data.Time
-import Data.Time.RFC1123
-import Data.Time.RFC733
-import Data.Time.Asctime
-import Prelude.Unicode
-
--- |Parse a date and time string in any formats allowed by HTTP\/1.1
--- (RFC 2616).
-httpDateAndTime ∷ Parser UTCTime
-httpDateAndTime
-    = choice [ zonedTimeToUTC     <$> try rfc1123DateAndTime
-             , zonedTimeToUTC     <$> try rfc733DateAndTime
-             , localTimeToUTC utc <$> asctime
-             ]
-
--- |Convert a 'UTCTime' to RFC 1123 date and time string.
-toAsciiBuilder ∷ UTCTime → AsciiBuilder
-toAsciiBuilder = untag' ∘ cs ∘ ut2zt
-    where
-      untag' ∷ Tagged RFC1123 AsciiBuilder → AsciiBuilder
-      {-# INLINE CONLIKE untag' #-}
-      untag' = untag
-
-      ut2zt ∷ UTCTime → ZonedTime
-      {-# INLINE ut2zt #-}
-      ut2zt = utcToZonedTime gmt
-
-      gmt ∷ TimeZone
-      {-# INLINE CONLIKE gmt #-}
-      gmt = TimeZone 0 False "GMT"