From 9831cf205f9a814862388799f28466dbc27fb62a Mon Sep 17 00:00:00 2001
From: stolz <unknown>
Date: Tue, 24 Jun 2003 09:40:51 +0000
Subject: [PATCH] [project @ 2003-06-24 09:40:51 by stolz] Pick up
 openFileEx/openBinaryFile change in error message

---
 GHC/Handle.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ->
-- 
1.7.10.4