on master help sign in
Merge pull request #394 from erikd/noinline

wai-extra: Add NOINLINE pragmas as needed

commit18e761c48f0ba79614a34338932a274563496497 authorGreg Weber <greg@gregweber.info> dateFri 3 Jul 2015, 03:29 (11 years ago) parentbffaa1aea65189
1 file changed+2
wai-extra/Network/Wai/Middleware/RequestLogger.hs+2
wai-extra/Network/Wai/Middleware/RequestLogger.hs+2
@@ -119,6 +119,7 @@ customMiddleware cb getdate formatter app req sendResponse = app req $ \res -> d
119119
120120-- | Production request logger middleware.
121121-- Implemented on top of "logCallback", but prints to 'stdout'
122+{-# NOINLINE logStdout #-}
122123logStdout :: Middleware
123124logStdout = unsafePerformIO $ mkRequestLogger def { outputFormat = Apache FromSocket }
124125
@@ -127,6 +128,7 @@ logStdout = unsafePerformIO $ mkRequestLogger def { outputFormat = Apache FromSo
127128--
128129-- Flushes 'stdout' on each request, which would be inefficient in production use.
129130-- Use "logStdout" in production.
131+{-# NOINLINE logStdoutDev #-}
130132logStdoutDev :: Middleware
131133logStdoutDev = unsafePerformIO $ mkRequestLogger def
132134