From 761e7dd3745e2fb0e8db425fecdceadccee5d99d Mon Sep 17 00:00:00 2001 From: Paul Rouse Date: Sat, 28 Feb 2015 21:38:11 +0000 Subject: [PATCH] Disregard proxy environment variables in yesod devel --- yesod-bin/Devel.hs | 3 ++- yesod-bin/yesod-bin.cabal | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/yesod-bin/Devel.hs b/yesod-bin/Devel.hs index 8912dbaa..043648eb 100644 --- a/yesod-bin/Devel.hs +++ b/yesod-bin/Devel.hs @@ -68,6 +68,7 @@ import Data.Streaming.Network (bindPortTCP) import Network (withSocketsDo) import Network.HTTP.Conduit (conduitManagerSettings, newManager) import Data.Default.Class (def) +import Network.HTTP.Client (managerSetProxy, noProxy) import Network.HTTP.ReverseProxy (ProxyDest (ProxyDest), waiProxyToSettings, wpsTimeout, wpsOnExc) import qualified Network.HTTP.ReverseProxy as ReverseProxy @@ -124,7 +125,7 @@ cabalProgram opts | isCabalDev opts = "cabal-dev" -- 3001, give an appropriate message to the user. reverseProxy :: DevelOpts -> I.IORef Int -> IO () reverseProxy opts iappPort = do - manager <- newManager conduitManagerSettings + manager <- newManager $ managerSetProxy noProxy conduitManagerSettings let refreshHtml = LB.fromChunks $ return $(embedFile "refreshing.html") let onExc _ req | maybe False (("application/json" `elem`) . parseHttpAccept) diff --git a/yesod-bin/yesod-bin.cabal b/yesod-bin/yesod-bin.cabal index 01ac8569..2785a5a9 100644 --- a/yesod-bin/yesod-bin.cabal +++ b/yesod-bin/yesod-bin.cabal @@ -78,6 +78,7 @@ executable yesod , http-reverse-proxy >= 0.4 , network , http-conduit >= 2.1.4 + , http-client , project-template >= 0.1.1 , transformers , transformers-compat