+{-# LANGUAGE
+ BangPatterns
+ , UnicodeSyntax
+ #-}
module Network.HTTP.Lucu.Postprocess
( postprocess
, completeUnconditionalHeaders
import Data.IORef
import Data.Maybe
import Data.Time
+import qualified Data.Time.HTTP as HTTP
import GHC.Conc (unsafeIOToSTM)
import Network.HTTP.Lucu.Abortion
import Network.HTTP.Lucu.Config
import Network.HTTP.Lucu.Headers
import Network.HTTP.Lucu.HttpVersion
import Network.HTTP.Lucu.Interaction
-import Network.HTTP.Lucu.RFC1123DateTime
import Network.HTTP.Lucu.Request
import Network.HTTP.Lucu.Response
import System.IO.Unsafe
if now `mostlyEq` cachedTime then
return cachedStr
else
- do let dateStr = C8.pack $ formatHTTPDateTime now
+ do let dateStr = C8.pack $ HTTP.format now
writeIORef cache (now, dateStr)
return dateStr
where