wai-logger-prefork 0.1.2 → 0.1.3
raw patch · 5 files changed
+15/−40 lines, 5 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Network.Wai.Logger.Prefork: FromHeader :: IPAddrSource
- Network.Wai.Logger.Prefork: FromSocket :: IPAddrSource
- Network.Wai.Logger.Prefork: data IPAddrSource :: *
- Network.Wai.Logger.Prefork: type ApacheLogger = Request -> Status -> Maybe Integer -> IO ()
Files
- Network/Wai/Logger/Prefork.hs +1/−4
- Network/Wai/Logger/Prefork/File.hs +1/−3
- Network/Wai/Logger/Prefork/Stdout.hs +0/−21
- Network/Wai/Logger/Prefork/Types.hs +1/−6
- wai-logger-prefork.cabal +12/−6
Network/Wai/Logger/Prefork.hs view
@@ -2,9 +2,7 @@ logCheck , logInit , logController- , ApacheLogger , LogType(..)- , IPAddrSource(..) , FileLogSpec(..) , LogController ) where@@ -13,7 +11,6 @@ import Control.Monad import Network.Wai.Logger import Network.Wai.Logger.Prefork.File-import Network.Wai.Logger.Prefork.Stdout import Network.Wai.Logger.Prefork.Types import System.Log.FastLogger @@ -24,7 +21,7 @@ logInit :: IPAddrSource -> LogType -> IO ApacheLogger logInit _ LogNone = noLoggerInit-logInit ipsrc LogStdout = stdoutLoggerInit ipsrc+logInit ipsrc LogStdout = stdoutApacheLoggerInit ipsrc logInit ipsrc (LogFile spec) = fileLoggerInit ipsrc spec noLoggerInit :: IO ApacheLogger
Network/Wai/Logger/Prefork/File.hs view
@@ -1,5 +1,3 @@-{-# LANGUAGE DoAndIfThenElse #-}- module Network.Wai.Logger.Prefork.File where import Control.Applicative@@ -85,7 +83,7 @@ siz <- fromIntegral . fileSize <$> getFileStatus file if siz > log_file_size spec then return True- else+ else return False sendSignal pid = signalProcess sigUSR1 pid `catch` ignore handler :: SomeException -> IO Bool
− Network/Wai/Logger/Prefork/Stdout.hs
@@ -1,21 +0,0 @@-module Network.Wai.Logger.Prefork.Stdout (stdoutLoggerInit) where--import Control.Applicative-import qualified Data.ByteString as BS-import Data.ByteString.Char8 (pack)-import Network.Wai.Logger-import Network.Wai.Logger.Prefork.Types-import System.Log.FastLogger--stdoutLoggerInit :: IPAddrSource -> IO ApacheLogger-stdoutLoggerInit ipsrc = stdoutLogger ipsrc <$> dateInit--stdoutLogger :: IPAddrSource -> DateRef -> ApacheLogger-stdoutLogger ipsrc dateref req status msiz = do- date <- getDate dateref- putToStdout $ logmsg date- where- putToStdout = BS.putStr . BS.concat . map toBS- logmsg date = apacheFormat ipsrc date req status msiz- toBS (LS s) = pack s- toBS (LB s) = s
Network/Wai/Logger/Prefork/Types.hs view
@@ -1,17 +1,12 @@ module Network.Wai.Logger.Prefork.Types (- ApacheLogger- , FileLogSpec(..)+ FileLogSpec(..) , LogType(..) , LogController ) where -import Network.HTTP.Types-import Network.Wai import System.Log.FastLogger import System.Posix (ProcessID) data LogType = LogNone | LogStdout | LogFile FileLogSpec--type ApacheLogger = Request -> Status -> Maybe Integer -> IO () type LogController = [ProcessID] -> IO ()
wai-logger-prefork.cabal view
@@ -1,5 +1,5 @@ Name: wai-logger-prefork-Version: 0.1.2+Version: 0.1.3 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3@@ -9,14 +9,20 @@ Category: Web, Yesod Cabal-Version: >= 1.6 Build-Type: Simple-library++Library GHC-Options: -Wall -fno-warn-unused-do-bind Exposed-Modules: Network.Wai.Logger.Prefork Other-Modules: Network.Wai.Logger.Prefork.File- Network.Wai.Logger.Prefork.Stdout Network.Wai.Logger.Prefork.Types- Build-Depends: base >= 4 && < 5, unix, bytestring,- wai, fast-logger, wai-logger, http-types+ Build-Depends: base >= 4 && < 5+ , bytestring+ , fast-logger+ , http-types+ , unix+ , wai+ , wai-logger+ Source-Repository head Type: git- Location: git://github.com/kazu-yamamoto/logger.git+ Location: git clone git://github.com/kazu-yamamoto/logger.git