Merge pull request #2560 from 23Skidoo/issue-1962

Print a more friendly message when http_proxy is down.

cabal-install/Distribution/Client/HttpUtils.hs

@@ -21,8 +21,10 @@ import Network.Browser
          , setOutHandler, setErrHandler, setProxy, setAuthorityGen, request)
 import Network.Stream
          ( Result, ConnError(..) )
+import Control.Exception
+         ( handleJust )
 import Control.Monad
-         ( liftM )
+         ( liftM, guard )
 import qualified Data.ByteString.Lazy.Char8 as ByteString
 import Data.ByteString.Lazy (ByteString)
 
@@ -42,6 +44,8 @@ import System.FilePath
          ( (<.>) )
 import System.Directory
          ( doesFileExist )
+import System.IO.Error
+         ( isDoesNotExistError )
 
 data DownloadResult = FileAlreadyInCache | FileDownloaded FilePath deriving (Eq)
 
@@ -88,13 +92,17 @@ cabalBrowse :: Verbosity
             -> IO a
 cabalBrowse verbosity auth act = do
     p   <- proxy verbosity
-    browse $ do
-        setProxy p
-        setErrHandler (warn verbosity . ("http error: "++))
-        setOutHandler (debug verbosity)
-        auth
-        setAuthorityGen (\_ _ -> return Nothing)
-        act
+    handleJust
+        (guard . isDoesNotExistError)
+        (const . die $ "Couldn't establish HTTP connection. "
+                    ++ "Possible cause: HTTP proxy server is down.") $
+        browse $ do
+            setProxy p
+            setErrHandler (warn verbosity . ("http error: "++))
+            setOutHandler (debug verbosity)
+            auth
+            setAuthorityGen (\_ _ -> return Nothing)
+            act
 
 downloadURI :: Verbosity
             -> URI      -- ^ What to download