$OpenBSD: patch-libraries_Cabal_Cabal_Distribution_Simple_Utils_hs,v 1.3 2015/09/19 07:42:57 kili Exp $

Don't strip the error message down to something stupid like `resource
exhausted' (which represents 13 different values of errno).

--- libraries/Cabal/Cabal/Distribution/Simple/Utils.hs.orig	Tue Dec 23 03:31:39 2014
+++ libraries/Cabal/Cabal/Distribution/Simple/Utils.hs	Sun Aug  9 18:01:16 2015
@@ -236,14 +236,7 @@ topHandlerWith cont prog = catchIO prog handle
       hPutStr stderr (mesage pname)
       cont ioe
       where
-        mesage pname = wrapText (pname ++ ": " ++ file ++ detail)
-        file         = case ioeGetFileName ioe of
-                         Nothing   -> ""
-                         Just path -> path ++ location ++ ": "
-        location     = case ioeGetLocation ioe of
-                         l@(n:_) | Char.isDigit n -> ':' : l
-                         _                        -> ""
-        detail       = ioeGetErrorString ioe
+        mesage pname = wrapText (pname ++ ": " ++ show ioe)
 
 topHandler :: IO a -> IO a
 topHandler prog = topHandlerWith (const $ exitWith (ExitFailure 1)) prog
