[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 (file)
--- 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 ->