, mkInteractionQueue
, getCurrentDate
+ , formatUTCTime
)
where
import Blaze.ByteString.Builder (Builder)
import Data.ByteString (ByteString)
import Data.Convertible.Base
import Data.Monoid.Unicode
-import Data.Proxy
import Data.Sequence (Seq)
+import Data.Tagged
import Data.Time
import Data.Time.Format.HTTP
import Data.Typeable
getCurrentDate ∷ IO Ascii
{-# INLINE getCurrentDate #-}
-getCurrentDate = flip proxy http ∘ cs <$> getCurrentTime
+getCurrentDate = formatUTCTime <$> getCurrentTime
+
+formatUTCTime ∷ UTCTime → Ascii
+{-# INLINE formatUTCTime #-}
+formatUTCTime = cs' ∘ Tagged
+ where
+ cs' ∷ Tagged HTTP UTCTime → Ascii
+ cs' = cs