From 8ff8dcb776c9754d299cc4715dba887b1ca8ad1f Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 28 May 2013 13:56:44 +0300 Subject: [PATCH] http-reverse-proxy 0.2 --- yesod-bin/Devel.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/yesod-bin/Devel.hs b/yesod-bin/Devel.hs index 378d9575..d4cfafab 100644 --- a/yesod-bin/Devel.hs +++ b/yesod-bin/Devel.hs @@ -68,6 +68,9 @@ import Network (withSocketsDo) import Network.HTTP.Conduit (def, newManager) import Network.HTTP.ReverseProxy (ProxyDest (ProxyDest), 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.Socket (sClose) import Network.Wai (responseLBS) @@ -120,7 +123,13 @@ reverseProxy opts iappPort = do run (develPort opts) $ waiProxyToSettings (const $ do 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 { wpsOnExc = onExc , wpsTimeout =