@@ -224,7 +224,7 @@ debugWrapper run = do
224 thread <- forkIO $
224 thread <- forkIO $
225 finally (run refreshMiddleware registerContext)
225 finally (run refreshMiddleware registerContext)
226 (putMVar serverDone ())
226 (putMVar serverDone ())
227− forkIO $ threadDelay 10000000 >> void (tryPutMVar ready ())
227+ _ <- forkIO $ threadDelay 10000000 >> void (tryPutMVar ready ())
228 when (expectedConnections /= 0) $ takeMVar ready
228 when (expectedConnections /= 0) $ takeMVar ready
229 return $ do
229 return $ do
230 putMVar reloadMVar ()
230 putMVar reloadMVar ()