projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-10-05 12:51:33 by simonmar]
[ghc-base.git]
/
GHC
/
Handle.hs
diff --git
a/GHC/Handle.hs
b/GHC/Handle.hs
index
acc8418
..
cde2ef5
100644
(file)
--- a/
GHC/Handle.hs
+++ b/
GHC/Handle.hs
@@
-51,7
+51,7
@@
module GHC.Handle (
) where
) where
-#include "config.h"
+#include "ghcconfig.h"
import Control.Monad
import Data.Bits
import Control.Monad
import Data.Bits
@@
-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.
-- * '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
openFile :: FilePath -> IOMode -> IO Handle
openFile fp im =
catch
@@
-1410,7
+1412,7
@@
hIsTerminalDevice handle = do
-- hSetBinaryMode
-- | Select binary mode ('True') or text mode ('False') on a open handle.
-- hSetBinaryMode
-- | Select binary mode ('True') or text mode ('False') on a open handle.
--- (GHC only; see also 'openBinaryFile'.)
+-- (See also 'openBinaryFile'.)
hSetBinaryMode :: Handle -> Bool -> IO ()
hSetBinaryMode handle bin =
hSetBinaryMode :: Handle -> Bool -> IO ()
hSetBinaryMode handle bin =