@@ -34,9 +34,9 @@ import Data.Streaming.Blaze (newBlazeRecv, defaultStrategy)
3434import qualified Data.Streaming.Zlib as Z
3535
3636ping :: IORef Bool -> Middleware
37−ping var app req sendResponse
37+ping active app req sendResponse
3838 | pathInfo req == ["_ping"] = do
39− liftIO $ writeIORef var True
39+ liftIO $ writeIORef active True
4040 sendResponse $ responseLBS status200 [] ""
4141 | otherwise = app req $ \res -> do
4242 let isHtml hs =
@@ -210,10 +210,10 @@ runHostPortUrl host port url app = do
210210 (takeMVar ready >> launch port url >> loop active)
211211
212212loop :: IORef Bool -> IO ()
213−loop x = do
213+loop active = do
214214 let seconds = 120
215215 threadDelay $ 1000000 * seconds
216− b <- readIORef x
216+ b <- readIORef active
217217 if b
218− then writeIORef x False >> loop x
218+ then writeIORef active False >> loop active
219219 else return ()