wai-logger 2.0.2 → 2.1.0
raw patch · 2 files changed
+5/−7 lines, 2 filesdep ~fast-logger
Dependency ranges changed: fast-logger
Files
- Network/Wai/Logger.hs +3/−5
- wai-logger.cabal +2/−2
Network/Wai/Logger.hs view
@@ -53,7 +53,6 @@ import Control.Concurrent (forkIO, threadDelay, killThread) import Control.Exception (handle, SomeException(..), bracket) import Control.Monad (when, void)-import GHC.IO.FD (stdout) import Network.HTTP.Types (Status) import Network.Wai (Request) import System.IO (withFile, hFileSize, IOMode(..))@@ -149,7 +148,7 @@ stdoutLoggerInit :: IPAddrSource -> BufSize -> DateCacheGetter -> IO ApacheLoggerActions stdoutLoggerInit ipsrc size dateget = do- lgrset <- newLoggerSet size stdout+ lgrset <- newLoggerSet size Nothing let logger = apache (pushLogStr lgrset) ipsrc dateget flusher = flushLogStr lgrset noRotator = return ()@@ -164,8 +163,7 @@ fileLoggerInit :: IPAddrSource -> FileLogSpec -> BufSize -> DateCacheGetter -> IO ApacheLoggerActions fileLoggerInit ipsrc spec size dateget = do- fd <- logOpen (log_file spec)- lgrset <- newLoggerSet size fd+ lgrset <- newLoggerSet size $ Just (log_file spec) let logger = apache (pushLogStr lgrset) ipsrc dateget flusher = flushLogStr lgrset rotator = logRotater lgrset spec@@ -205,7 +203,7 @@ over <- isOver when over $ do rotate spec- logOpen (log_file spec) >>= renewLoggerSet lgrset+ renewLoggerSet lgrset where file = log_file spec isOver = handle (\(SomeException _) -> return False) $ do
wai-logger.cabal view
@@ -1,5 +1,5 @@ Name: wai-logger-Version: 2.0.2+Version: 2.1.0 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3@@ -22,7 +22,7 @@ , byteorder , bytestring , case-insensitive- , fast-logger >= 2.0.0+ , fast-logger >= 2.1.0 , http-types , network , wai >= 2.0.0