[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 (file)
--- 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"