git.iko.soy/typeable/wai
on master help sign in
debugDest -> debugHandle
commit87b2353cdf1b2fa9f95c0579d01c980e6afc2c38 authorGreg Weber <greg@gregweber.info> dateThu 4 Aug 2011, 06:40 (15 years ago) parentd9a7a5a
2 files changed+6−6
compare with master
unifiedsplit
wai-extra/Network/Wai/Middleware/Debug.hs+4−4 wai-extra/runtests.hs+2−2
wai-extra/Network/Wai/Middleware/Debug.hs+4−4
@@ -1,7 +1,7 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Network.Wai.Middleware.Debug
33 ( debug
4− , debugDest
4+ , debugHandle
55 ) where
66
77import Network.Wai (Request(..), Middleware)
@@ -17,13 +17,13 @@ import Data.Enumerator.List (consume)
1717
1818-- | Prints a message to 'stderr' for each request.
1919debug :: Middleware
20−debug = debugDest $ hPutStrLn stderr . T.unpack
20+debug = debugHandle $ hPutStrLn stderr . T.unpack
2121
2222-- | Prints a message using the given callback function for each request.
2323-- This is not for serious production use- it is inefficient.
2424-- It immediately consumes a POST body and fills it back in and is otherwise inefficient
25−debugDest :: (T.Text -> IO ()) -> Middleware
26−debugDest cb app req = do
25+debugHandle :: (T.Text -> IO ()) -> Middleware
26+debugHandle cb app req = do
2727 body <- consume
2828 postParams <- if any (requestMethod req ==) ["GET", "HEAD"]
2929 then return []
wai-extra/runtests.hs+2−2
@@ -19,7 +19,7 @@ import Network.Wai.Middleware.Vhost
1919import Network.Wai.Middleware.Autohead
2020import Network.Wai.Middleware.MethodOverride
2121import Network.Wai.Middleware.AcceptOverride
22−import Network.Wai.Middleware.Debug (debug, debugDest)
22+import Network.Wai.Middleware.Debug (debug, debugHandle)
2323import Codec.Compression.GZip (decompress)
2424
2525import Data.Enumerator (run_, enumList, ($$), Iteratee)
@@ -409,7 +409,7 @@ caseDebugRequestBody = do
409409 postOutput = T.pack $ "POST \nAccept: \nPOST " ++ (show params)
410410 getOutput qs = T.pack $ "GET /location" ++ "\nAccept: \nGET " ++ (show params) -- \nAccept: \n" ++ (show params)
411411
412− debugApp output = debugDest (\t -> liftIO $ assertEqual "debug" output t) $ \req -> do
412+ debugApp output = debugHandle (\t -> liftIO $ assertEqual "debug" output t) $ \req -> do
413413 return $ responseLBS status200 [ ] ""
414414 {-debugApp = debug $ \req -> do-}
415415 {-return $ responseLBS status200 [ ] ""-}