From: sof <unknown>
Date: Fri, 23 Aug 2002 22:10:43 +0000 (+0000)
Subject: [project @ 2002-08-23 22:10:43 by sof]
X-Git-Tag: nhc98-1-18-release~904
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=89a7e89cba543e495079c0ca2d49bb3397c0861a;p=ghc-base.git

[project @ 2002-08-23 22:10:43 by sof]
ioeGetErrorString: don't "show" the string from a user error.

Merge to STABLE.
---

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index fd92ee1..a34879b 100644
--- a/System/IO/Error.hs
+++ b/System/IO/Error.hs
@@ -175,7 +175,7 @@ ioeGetHandle (IOException ioe) = ioe_handle ioe
 ioeGetHandle _ = error "System.IO.Error.ioeGetHandle: not an IO error"
 
 ioeGetErrorString (IOException ioe) 
-   | isUserErrorType (ioe_type ioe) = show (ioe_descr ioe)
+   | isUserErrorType (ioe_type ioe) = ioe_descr ioe
    | otherwise                      = show (ioe_type ioe)
 ioeGetErrorString _ = error "System.IO.Error.ioeGetErrorString: not an IO error"