From: sof <unknown>
Date: Tue, 24 Sep 2002 16:07:50 +0000 (+0000)
Subject: [project @ 2002-09-24 16:07:50 by sof]
X-Git-Tag: nhc98-1-18-release~845
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2a169c6874c0fbc3414635fcf06dc6bcd852573a;p=haskell-directory.git

[project @ 2002-09-24 16:07:50 by sof]
ioeGetErrorType(error case): don't pose as ioeGetHandle.

Merge to STABLE.
---

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index a34879b..2e0d6db 100644
--- a/System/IO/Error.hs
+++ b/System/IO/Error.hs
@@ -169,7 +169,7 @@ ioeGetErrorString     :: IOError -> String
 ioeGetFileName        :: IOError -> Maybe FilePath
 
 ioeGetErrorType (IOException ioe) = ioe_type ioe
-ioeGetErrorType _ = error "System.IO.Error.ioeGetHandle: not an IO error"
+ioeGetErrorType _ = error "System.IO.Error.ioeGetErrorType: not an IO error"
 
 ioeGetHandle (IOException ioe) = ioe_handle ioe
 ioeGetHandle _ = error "System.IO.Error.ioeGetHandle: not an IO error"