From 2d8507cbee8c2e230e2eba79f490ccb329c43dc4 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 17 May 2015 10:31:40 +0300 Subject: [PATCH] Be slightly more verbose for #992 --- yesod-bin/Devel.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/yesod-bin/Devel.hs b/yesod-bin/Devel.hs index 10ec5b4d..717d9fe2 100644 --- a/yesod-bin/Devel.hs +++ b/yesod-bin/Devel.hs @@ -191,7 +191,10 @@ reverseProxy opts iappPort = do putStrLn $ "If you wish to test https capabilities, you should set the following variable:" putStrLn $ " export APPROOT=https://127.0.0.1:" ++ show (develTlsPort opts) putStrLn "" - loop (race_ httpProxy httpsProxy) `Ex.onException` exitFailure + loop (race_ httpProxy httpsProxy) `Ex.catch` \e -> do + print (e :: Ex.SomeException) + exitFailure + Ex.throwIO e -- heh, just for good measure where loop proxies = forever $ do void proxies