Dummy implementations of openBinaryFile and hSetBinaryMode for nhc98.
-- * Binary input and output
-#if !defined(__NHC__)
openBinaryFile, -- :: FilePath -> IOMode -> IO Handle
hSetBinaryMode, -- :: Handle -> Bool -> IO ()
+#if !defined(__NHC__)
hPutBuf, -- :: Handle -> Ptr a -> Int -> IO ()
hGetBuf, -- :: Handle -> Ptr a -> Int -> IO Int
#endif
, FilePath -- :: String
)
import NHC.IOExtras (fixIO)
+openBinaryFile = openFile
+hSetBinaryMode _ _ = return ()
#endif
import System.IO.Error (