$OpenBSD: patch-libraries_Cabal_Cabal_Distribution_Simple_Utils_hs,v 1.2 2014/11/22 20:23:23 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	Thu Jul 10 06:34:21 2014
+++ libraries/Cabal/Cabal/Distribution/Simple/Utils.hs	Sun Nov  2 22:23:54 2014
@@ -259,14 +259,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:_) | n >= '0' && n <= '9' -> ':' : l
-                         _                              -> ""
-        detail       = ioeGetErrorString ioe
+        mesage pname = wrapText (pname ++ ": " ++ show ioe)
 
 topHandler :: IO a -> IO a
 topHandler prog = topHandlerWith (const $ exitWith (ExitFailure 1)) prog
