@@ -7,6 +7,7 @@ module Network.Wai.Middleware.RequestLogger
7 , logStdoutDev
7 , logStdoutDev
8 -- * Create more versions
8 -- * Create more versions
9 , mkRequestLogger
9 , mkRequestLogger
10+ , defaultRequestLoggerSettings
10 , RequestLoggerSettings (..)
11 , RequestLoggerSettings (..)
11 , outputFormat
12 , outputFormat
12 , autoFlush
13 , autoFlush
@@ -64,7 +65,9 @@ data Destination = Handle Handle
65type Callback = LogStr -> IO ()
66type Callback = LogStr -> IO ()
68+-- | @RequestLoggerSettings@ is an instance of Default.
67−-- | @RequestLoggerSettings@ is an instance of Default. See <https://hackage.haskell.org/package/data-default Data.Default> for more information.
69+-- See <https://hackage.haskell.org/package/data-default Data.Default>
70+-- for more information.
69-- @outputFormat@, @autoFlush@, and @destination@ are record fields
72-- @outputFormat@, @autoFlush@, and @destination@ are record fields
70-- for the record type @RequestLoggerSettings@, so they can be used to
73-- for the record type @RequestLoggerSettings@, so they can be used to
@@ -81,6 +84,8 @@ data RequestLoggerSettings = RequestLoggerSettings
81 , destination :: Destination
84 , destination :: Destination
87+-- | @defaultRequestLoggerSettings@ is the original 'Default' instance
88+-- factored out into a top-level declared variable.
84defaultRequestLoggerSettings :: RequestLoggerSettings
89defaultRequestLoggerSettings :: RequestLoggerSettings
85defaultRequestLoggerSettings =
90defaultRequestLoggerSettings =
86 RequestLoggerSettings
91 RequestLoggerSettings