Commit 128df24d authored by simonm's avatar simonm
Browse files

[project @ 1999-03-02 09:17:02 by simonm]

makeForeignObj --> mkForeignObj
parent 88fa7faa
......@@ -1205,7 +1205,7 @@ socketToHandle :: Socket -> IOMode -> IO Handle
socketToHandle (MkSocket fd _ _ _ _) m = do
fileobj <- _ccall_ openFd fd (file_mode::Int) (flush_on_close::Int)
fo <- makeForeignObj fileobj
fo <- mkForeignObj fileobj
addForeignFinalizer fo (freeFileObject fo)
mkBuffer__ fo 0 -- not buffered
hndl <- newHandle (Handle__ fo htype NoBuffering socket_str)
......
......@@ -111,7 +111,7 @@ fdToHandle fd@(FD# fd#) = do
(or as a result of) program termination.
-}
#ifndef __PARALLEL_HASKELL__
fo <- makeForeignObj fo
fo <- mkForeignObj fo
if fd == stdInput || fd == stdOutput || fd == stdError then
addForeignFinalizer fo (freeStdFileObject fo)
else
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment