@@ -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