git.iko.soy/typeable/wai
on master help sign in
debug renamed to logStdoutDev and moved to Network.Wai.Middleware.RequestLogger
0c61b68Mark Wright
wai-handler-devel/Network/Wai/Handler/DevelServer.hs+2−2
compare with master
unifiedsplit
@@ -28,7 +28,7 @@ import Control.Concurrent.MVar
28import System.Directory (getModificationTime)
28import System.Directory (getModificationTime)
29import qualified Network.Wai.Handler.Warp as Warp
29import qualified Network.Wai.Handler.Warp as Warp
30import Network.Wai.Application.Devel
30import Network.Wai.Application.Devel
31−import Network.Wai.Middleware.Debug (debug)
31+import Network.Wai.Middleware.RequestLogger (logStdoutDev)
32
32
33import Data.List (nub, group, sort)
33import Data.List (nub, group, sort)
34import System.Time (ClockTime)
34import System.Time (ClockTime)
@@ -147,7 +147,7 @@ reload modu func extras prevError ah actions = do
147 let files = map head $ group $ sort $ concat $ files' : files''
147 let files = map head $ group $ sort $ concat $ files' : files''
148 putStrLn "Interpreting success, new app loaded"
148 putStrLn "Interpreting success, new app loaded"
149 E.handle onInitErr $ do
149 E.handle onInitErr $ do
150− swapApp (\f -> app $ f . debug) ah
150+ swapApp (\f -> app $ f . logStdoutDev) ah
151 times <- getTimes files
151 times <- getTimes files
152 sequence_ actions
152 sequence_ actions
153 return (Nothing, zip files times)
153 return (Nothing, zip files times)