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

http-reverse-proxy 0.2

Browse Source
This commit is contained in:
Michael Snoyman 2013-05-28 13:56:44 +03:00
parent 743966898d
commit 8ff8dcb776
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
yesod-bin/Devel.hs
View File

@ -68,6 +68,9 @@ import Network (withSocketsDo)
import Network.HTTP.Conduit (def, newManager) import Network.HTTP.Conduit (def, newManager)
import Network.HTTP.ReverseProxy (ProxyDest (ProxyDest), import Network.HTTP.ReverseProxy (ProxyDest (ProxyDest),
waiProxyToSettings, wpsTimeout, wpsOnExc) waiProxyToSettings, wpsTimeout, wpsOnExc)
#if MIN_VERSION_http_reverse_proxy(0, 2, 0)
import qualified Network.HTTP.ReverseProxy as ReverseProxy
#endif
import Network.HTTP.Types (status200) import Network.HTTP.Types (status200)
import Network.Socket (sClose) import Network.Socket (sClose)
import Network.Wai (responseLBS) import Network.Wai (responseLBS)
@ -120,7 +123,13 @@ reverseProxy opts iappPort = do
run (develPort opts) $ waiProxyToSettings run (develPort opts) $ waiProxyToSettings
(const $ do (const $ do
appPort <- liftIO $ I.readIORef iappPort appPort <- liftIO $ I.readIORef iappPort
return $ Right $ ProxyDest "127.0.0.1" appPort) return $
#if MIN_VERSION_http_reverse_proxy(0, 2, 0)
ReverseProxy.WPRProxyDest
#else
Right
#endif
$ ProxyDest "127.0.0.1" appPort)
def def
{ wpsOnExc = onExc { wpsOnExc = onExc
, wpsTimeout = , wpsTimeout =