From: stolz <unknown>
Date: Tue, 24 Jun 2003 09:40:51 +0000 (+0000)
Subject: [project @ 2003-06-24 09:40:51 by stolz]
X-Git-Tag: nhc98-1-18-release~599
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9831cf205f9a814862388799f28466dbc27fb62a;p=ghc-base.git

[project @ 2003-06-24 09:40:51 by stolz]
Pick up openFileEx/openBinaryFile change in error message
---

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index f638dff..13a051b 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -652,7 +652,7 @@ openBinaryFile :: FilePath -> IOMode -> IO Handle
 openBinaryFile fp m =
   catch
     (openFile' fp m True)
-    (\e -> ioError (addFilePathToIOError "openFileEx" fp e))
+    (\e -> ioError (addFilePathToIOError "openBinaryFile" fp e))
 
 openFile' filepath mode binary =
   withCString filepath $ \ f ->