@@ -4,9 +4,6 @@
44-- https://github.com/yesodweb/wai/issues/192
55module Network.Wai.Middleware.RequestLogger.Internal
66 ( module Network.Wai.Middleware.RequestLogger.Internal
7−#if !MIN_VERSION_fast_logger(2, 1, 0)
8− , logToByteString
9−#endif
107 ) where
118
129import Data.ByteString (ByteString)
@@ -14,32 +11,11 @@ import Network.Wai.Logger (clockDateCacher)
1411import Control.Concurrent (forkIO, threadDelay)
1512import Control.Monad (forever)
1613
17−#if MIN_VERSION_fast_logger(2, 1, 0)
1814import System.Log.FastLogger (LogStr, fromLogStr)
1915
2016logToByteString :: LogStr -> ByteString
2117logToByteString = fromLogStr
2218
23−#else
24−
25−import System.Log.FastLogger (LogStr, logStrBuilder)
26−
27−#if MIN_VERSION_bytestring(0, 10, 2)
28−import Data.ByteString.Builder (toLazyByteString, Builder)
29−import qualified Data.ByteString.Lazy as L
30−
31−toByteString :: Builder -> ByteString
32−toByteString = L.toStrict . toLazyByteString
33−
34−#else
35−import Blaze.ByteString.Builder (toByteString)
36−#endif
37−
38−logToByteString :: LogStr -> ByteString
39−logToByteString = toByteString . logStrBuilder
40−
41−#endif
42−
4319getDateGetter :: IO () -- ^ flusher
4420 -> IO (IO ByteString)
4521getDateGetter flusher = do