From: simonmar <unknown>
Date: Wed, 26 Jan 2005 12:23:33 +0000 (+0000)
Subject: [project @ 2005-01-26 12:23:33 by simonmar]
X-Git-Tag: nhc98-1-18-release~76
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=17cca08a0842e8784ea584214475cd0a1b4f4e5d;p=ghc-base.git

[project @ 2005-01-26 12:23:33 by simonmar]
I think InvalidArgument is more useful than OtherError for EBADF.
---

diff --git a/Foreign/C/Error.hs b/Foreign/C/Error.hs
index 74d4e1a..ac26141 100644
--- a/Foreign/C/Error.hs
+++ b/Foreign/C/Error.hs
@@ -472,7 +472,7 @@ errnoToIOError loc errno maybeHdl maybeName = unsafePerformIO $ do
         | errno == eAFNOSUPPORT    = UnsupportedOperation
         | errno == eAGAIN          = ResourceExhausted
         | errno == eALREADY        = AlreadyExists
-        | errno == eBADF           = OtherError
+        | errno == eBADF           = InvalidArgument
         | errno == eBADMSG         = InappropriateType
         | errno == eBADRPC         = OtherError
         | errno == eBUSY           = ResourceBusy