#undef DEBUG
-- -----------------------------------------------------------------------------
--- $Id: PrelHandle.hsc,v 1.12 2001/06/29 13:41:43 simonmar Exp $
+-- $Id: PrelHandle.hsc,v 1.15 2001/07/13 15:01:28 simonmar Exp $
--
-- (c) The University of Glasgow, 1994-2001
--
) where
-#include "cbits/HsStd.h"
+#include "HsStd.h"
import Monad
-- hSetBinaryMode
#ifdef _WIN32
-hSetBinaryMode handle bin =
+hSetBinaryMode handle bin =
withAllHandles__ "hSetBinaryMode" handle $ \ handle_ ->
do let flg | bin = (#const O_BINARY)
| otherwise = (#const O_TEXT)
throwErrnoIfMinus1_ "hSetBinaryMode"
(setmode (fromIntegral (haFD handle_)) flg)
return handle_{haIsBin=bin}
- return ()
foreign import "setmode" setmode :: CInt -> CInt -> IO CInt
#else
-hSetBinaryMode handle bin = do
+hSetBinaryMode handle bin =
withAllHandles__ "hSetBinaryMode" handle $ \ handle_ ->
return handle_{haIsBin=bin}
- return ()
#endif
-- -----------------------------------------------------------------------------