X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FIO%2FError.hs;h=245487a2a85f862bf695c5daf6a17e1d112b1fb4;hb=f7a485978f04e84b086f1974b88887cc72d832d0;hp=8853c9d9835e112da767002e6eae3174b33566e9;hpb=337e8dce81e1e16fdea4b2089abe8ab3c9e1c5d8;p=ghc-base.git

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index 8853c9d..245487a 100644
--- a/System/IO/Error.hs
+++ b/System/IO/Error.hs
@@ -1,17 +1,15 @@
 {-# OPTIONS -fno-implicit-prelude #-}
 
 -----------------------------------------------------------------------------
--- 
+-- |
 -- Module      :  System.IO.Error
 -- Copyright   :  (c) The University of Glasgow 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Error.hs,v 1.2 2002/03/26 17:03:08 simonmar Exp $
---
 -- Standard IO Errors.
 --
 -----------------------------------------------------------------------------
@@ -152,12 +150,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"