@@ -204,7 +204,6 @@ runHostPortUrl host port url app = do
204 Warp.setHost (fromString host) $
204 Warp.setHost (fromString host) $
205 Warp.setBeforeMainLoop (putMVar ready ()) $
205 Warp.setBeforeMainLoop (putMVar ready ()) $
206 Warp.defaultSettings
206 Warp.defaultSettings
208 -- Run these threads concurrently; when either one terminates or
207 -- Run these threads concurrently; when either one terminates or
209 -- raises an exception, the same happens to the other.
208 -- raises an exception, the same happens to the other.
210 fmap (either id id) $ race
209 fmap (either id id) $ race