@@ -4,9 +4,6 @@
4-- https://github.com/yesodweb/wai/issues/192
4-- https://github.com/yesodweb/wai/issues/192
5module Network.Wai.Middleware.RequestLogger.Internal
5module Network.Wai.Middleware.RequestLogger.Internal
6 ( module Network.Wai.Middleware.RequestLogger.Internal
6 ( module Network.Wai.Middleware.RequestLogger.Internal
7−#if !MIN_VERSION_fast_logger(2, 1, 0)
12import Data.ByteString (ByteString)
9import Data.ByteString (ByteString)
@@ -14,32 +11,11 @@ import Network.Wai.Logger (clockDateCacher)
14import Control.Concurrent (forkIO, threadDelay)
11import Control.Concurrent (forkIO, threadDelay)
15import Control.Monad (forever)
12import Control.Monad (forever)
17−#if MIN_VERSION_fast_logger(2, 1, 0)
18import System.Log.FastLogger (LogStr, fromLogStr)
14import System.Log.FastLogger (LogStr, fromLogStr)
20logToByteString :: LogStr -> ByteString
16logToByteString :: LogStr -> ByteString
21logToByteString = fromLogStr
17logToByteString = fromLogStr
25−import System.Log.FastLogger (LogStr, logStrBuilder)
27−#if MIN_VERSION_bytestring(0, 10, 2)
28−import Data.ByteString.Builder (toLazyByteString, Builder)
29−import qualified Data.ByteString.Lazy as L
31−toByteString :: Builder -> ByteString
32−toByteString = L.toStrict . toLazyByteString
35−import Blaze.ByteString.Builder (toByteString)
38−logToByteString :: LogStr -> ByteString
39−logToByteString = toByteString . logStrBuilder
43getDateGetter :: IO () -- ^ flusher
19getDateGetter :: IO () -- ^ flusher
44 -> IO (IO ByteString)
20 -> IO (IO ByteString)
45getDateGetter flusher = do
21getDateGetter flusher = do