From: sof <unknown>
Date: Mon, 20 Sep 2004 16:35:12 +0000 (+0000)
Subject: [project @ 2004-09-20 16:35:12 by sof]
X-Git-Tag: nhc98-1-18-release~247
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=474a36adb08ce63ba208c81c9881b04567ddf008;p=ghc-base.git

[project @ 2004-09-20 16:35:12 by sof]
openFile: have Haddock comments mention openBinaryFile
---

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 901a4ae..cde2ef5 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -740,7 +740,9 @@ addFilePathToIOError fun fp (IOError h iot _ str _)
 --  * 'isDoesNotExistError' if the file does not exist; or
 --
 --  * 'isPermissionError' if the user does not have permission to open the file.
-
+--
+-- Note: if you will be working with files containing binary data, you'll want to
+-- be using 'openBinaryFile'.
 openFile :: FilePath -> IOMode -> IO Handle
 openFile fp im = 
   catch