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

Debug output for Devel.hs

Browse Source
This commit is contained in:
Michael Snoyman 2012-11-26 15:32:42 +02:00
parent f6dd0b56b9
commit 5a29eec9c7
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yesod/Devel.hs
View File

@ -121,10 +121,14 @@ defaultDevelOpts = DevelOpts False False False (-1) Nothing Nothing Nothing
reverseProxy :: IO () reverseProxy :: IO ()
reverseProxy = withSocketsDo $ do reverseProxy = withSocketsDo $ do
manager <- newManager def manager <- newManager def
run 3000 $ waiProxyTo forever $ do
(const $ return $ Right $ ProxyDest "127.0.0.1" 3001) run 3000 $ waiProxyTo
onExc (const $ return $ Right $ ProxyDest "127.0.0.1" 3001)
manager onExc
manager
putStrLn "Reverse proxy stopped, but it shouldn't"
threadDelay 1000000
putStrLn "Restarting reverse proxy"
where where
onExc _ _ = return $ responseLBS onExc _ _ = return $ responseLBS
status200 status200