From: simonmar <unknown>
Date: Wed, 27 Mar 2002 17:55:26 +0000 (+0000)
Subject: [project @ 2002-03-27 17:55:26 by simonmar]
X-Git-Tag: nhc98-1-18-release~1069
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3a4a64a72ecf7c8659730edf93f1ff9990172a85;p=ghc-base.git

[project @ 2002-03-27 17:55:26 by simonmar]
Fix cut-n-pasto  (the testsuite actually showed up something useful!)
---

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index 8853c9d..04bf6c6 100644
--- a/System/IO/Error.hs
+++ b/System/IO/Error.hs
@@ -10,7 +10,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Error.hs,v 1.2 2002/03/26 17:03:08 simonmar Exp $
+-- $Id: Error.hs,v 1.3 2002/03/27 17:55:26 simonmar Exp $
 --
 -- Standard IO Errors.
 --
@@ -152,12 +152,12 @@ isUserErrorType _ = False
 
 #ifdef __GLASGOW_HASKELL__
 ioeGetErrorType	      :: IOError -> IOErrorType
-ioeGetFileName        :: IOError -> Maybe FilePath
-ioeGetErrorString     :: IOError -> String
 ioeGetHandle          :: IOError -> Maybe Handle
+ioeGetErrorString     :: IOError -> String
+ioeGetFileName        :: IOError -> Maybe FilePath
 
 ioeGetErrorType (IOException ioe) = ioe_type ioe
-ioeGetHandle _ = error "System.IO.Error.ioeGetHandle: not an IO error"
+ioeGetErrorType _ = error "System.IO.Error.ioeGetHandle: not an IO error"
 
 ioeGetHandle (IOException ioe) = ioe_handle ioe
 ioeGetHandle _ = error "System.IO.Error.ioeGetHandle: not an IO error"