@@ -28,7 +28,7 @@ import Control.Concurrent.MVar
2828import System.Directory (getModificationTime)
2929import qualified Network.Wai.Handler.Warp as Warp
3030import Network.Wai.Application.Devel
31−import Network.Wai.Middleware.Debug (debug)
31+import Network.Wai.Middleware.RequestLogger (logStdoutDev)
3232
3333import Data.List (nub, group, sort)
3434import System.Time (ClockTime)
@@ -147,7 +147,7 @@ reload modu func extras prevError ah actions = do
147147 let files = map head $ group $ sort $ concat $ files' : files''
148148 putStrLn "Interpreting success, new app loaded"
149149 E.handle onInitErr $ do
150− swapApp (\f -> app $ f . debug) ah
150+ swapApp (\f -> app $ f . logStdoutDev) ah
151151 times <- getTimes files
152152 sequence_ actions
153153 return (Nothing, zip files times)