@@ -7,6 +7,7 @@ import Control.Exception
77import Network.HTTP.Types
88import Network.Socket
99import Network.Wai
10+import System.Environment
1011import System.IO
1112import System.IO.Silently
1213import System.Process
@@ -16,6 +17,9 @@ import Network.Wai.Handler.Warp.WithApplication
1617
1718spec :: Spec
1819spec = do
20+ runIO $ do
21+ unsetEnv "http_proxy"
22+ unsetEnv "https_proxy"
1923 describe "withApplication" $ do
2024 it "runs a wai Application while executing the given action" $ do
2125 let mkApp = return $ \ _request respond -> respond $ responseLBS ok200 [] "foo"