Treat empty HTTP_PROXY as non-existent (closes #66)

haskell · Oct 27, 2017 · e66f12c · e66f12c
1 parent 45db7ec
commit e66f12c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Network/HTTP/Proxy.hs b/Network/HTTP/Proxy.hs
@@ -160,6 +160,7 @@ fetchProxy warnIfIllformed = do
 -- | @parseProxy str@ translates a proxy server string into a @Proxy@ value;
 -- returns @Nothing@ if not well-formed.
 parseProxy :: String -> Maybe Proxy
+parseProxy "" = Nothing
 parseProxy str = join
                    . fmap uri2proxy
                    $ parseHttpURI str