more Win32-2.6 compat fixes

andrewthad · Nov 14, 2017 · dbaee53 · dbaee53
1 parent 9207033
commit dbaee53
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/http-client/Network/HTTP/Proxy.hs b/http-client/Network/HTTP/Proxy.hs
@@ -176,10 +176,11 @@ registryProxyString = catch
         then do
 #if MIN_VERSION_Win32(2, 6, 0)
             server <- regQueryValue hkey "ProxyServer"
+            exceptions <- try $ regQueryValue hkey "ProxyOverride" :: IO (Either IOException String)
 #else
             server <- regQueryValue hkey (Just "ProxyServer")
-#endif
             exceptions <- try $ regQueryValue hkey (Just "ProxyOverride") :: IO (Either IOException String)
+#endif
             return $ Just (server, either (const "") id exceptions)
         else return Nothing)
   hideError where