module Network.Wai.Log (
mkApplicationLogger
, mkApplicationLoggerWith
, Options(..)
, defaultOptions
) where
import Prelude hiding (log)
import Log (MonadLog, getLoggerIO)
import Network.Wai (Middleware)
import Network.Wai.Log.Internal
import Network.Wai.Log.Options
mkApplicationLogger :: MonadLog m => m Middleware
mkApplicationLogger :: m Middleware
mkApplicationLogger = Options -> m Middleware
forall (m :: * -> *). MonadLog m => Options -> m Middleware
mkApplicationLoggerWith Options
defaultOptions
mkApplicationLoggerWith :: MonadLog m => Options -> m Middleware
mkApplicationLoggerWith :: Options -> m Middleware
mkApplicationLoggerWith options :: Options
options = do
UTCTime -> LogLevel -> Text -> Value -> IO ()
logIO <- m (UTCTime -> LogLevel -> Text -> Value -> IO ())
forall (m :: * -> *).
MonadLog m =>
m (UTCTime -> LogLevel -> Text -> Value -> IO ())
getLoggerIO
Middleware -> m Middleware
forall (m :: * -> *) a. Monad m => a -> m a
return (Middleware -> m Middleware) -> Middleware -> m Middleware
forall a b. (a -> b) -> a -> b
$ (UTCTime -> LogLevel -> Text -> Value -> IO ())
-> Options -> Middleware
logRequestsWith UTCTime -> LogLevel -> Text -> Value -> IO ()
logIO Options
options