haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Be slightly more verbose for #992

Browse Source
This commit is contained in:
Michael Snoyman 2015-05-17 10:31:40 +03:00
parent d9d085e945
commit 2d8507cbee
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-bin/Devel.hs
View File

@ -191,7 +191,10 @@ reverseProxy opts iappPort = do
putStrLn $ "If you wish to test https capabilities, you should set the following variable:" 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 $ " export APPROOT=https://127.0.0.1:" ++ show (develTlsPort opts)
putStrLn "" 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 where
loop proxies = forever $ do loop proxies = forever $ do
void proxies void proxies