From: simonmar <unknown>
Date: Tue, 26 Mar 2002 17:03:08 +0000 (+0000)
Subject: [project @ 2002-03-26 17:03:08 by simonmar]
X-Git-Tag: nhc98-1-18-release~1077
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=337e8dce81e1e16fdea4b2089abe8ab3c9e1c5d8;p=haskell-directory.git

[project @ 2002-03-26 17:03:08 by simonmar]
Add type signatures for isAlreadyExistsErrorType & friends
---

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index 22becfb..8853c9d 100644
--- a/System/IO/Error.hs
+++ b/System/IO/Error.hs
@@ -10,7 +10,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Error.hs,v 1.1 2002/02/05 17:32:27 simonmar Exp $
+-- $Id: Error.hs,v 1.2 2002/03/26 17:03:08 simonmar Exp $
 --
 -- Standard IO Errors.
 --
@@ -117,6 +117,10 @@ userErrorType		  = UserError
 -- -----------------------------------------------------------------------------
 -- IOErrorType predicates
 
+isAlreadyExistsErrorType, isDoesNotExistErrorType, isAlreadyInUseErrorType,
+  isFullErrorType, isEOFErrorType, isIllegalOperationErrorType, 
+  isPermissionErrorType, isUserErrorType :: IOErrorType -> Bool
+
 #ifdef __GLASGOW_HASKELL__
 isAlreadyExistsErrorType AlreadyExists = True
 isAlreadyExistsErrorType _ = False