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

[ghc-hetmet.git] / ghc / lib / misc / SocketPrim.lhs

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index d60cbe3..589edfa 100644 (file)
--- a/ghc/lib/misc/SocketPrim.lhs
+++ b/ghc/lib/misc/SocketPrim.lhs
@@ -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)