hGetBufNonBlocking, -- :: Handle -> Ptr a -> Int -> IO Int
#endif
- -- * Temporary files (not portable: GHC only)
+ -- * Temporary files
openTempFile,
openBinaryTempFile,
where
filename = prefix ++ show x ++ suffix
filepath = tmp_dir ++ [pathSeparator] ++ filename
+#if __HUGS__
+ fdToHandle fd = openFd (fromIntegral fd) False ReadWriteMode binary
+#endif
-- XXX Should use filepath library
pathSeparator :: Char