git.iko.soy/typeable/wai
on master help sign in
Added missing debug middleware
e57e2ffMichael Snoyman
Network/Wai/Middleware/Debug.hsnew file+16
compare with master
unifiedsplit
@@ -0,0 +1,16 @@
1+module Network.Wai.Middleware.Debug (debug) where
2+
3+import Network.Wai (Middleware, requestMethod, pathInfo)
4+import Data.ByteString.Char8 (unpack)
5+import System.IO (hPutStrLn, stderr)
6+import Control.Monad.IO.Class (liftIO)
7+
8+-- | Prints a message to 'stderr' for each request.
9+debug :: Middleware
10+debug app req = do
11+ liftIO $ hPutStrLn stderr $ concat
12+ [ unpack $ requestMethod req
13+ , " "
14+ , unpack $ pathInfo req
15+ ]
16+ app req