From: simonm <unknown>
Date: Tue, 2 Mar 1999 09:17:03 +0000 (+0000)
Subject: [project @ 1999-03-02 09:17:02 by simonm]
X-Git-Tag: Approximately_9120_patches~6474
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=128df24d5493088039eabd932bf756f34e2f00dc;p=ghc-hetmet.git

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

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index d60cbe3..589edfa 100644
--- 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)
diff --git a/ghc/lib/posix/PosixIO.lhs b/ghc/lib/posix/PosixIO.lhs
index 4a1a56e..8a0713b 100644
--- a/ghc/lib/posix/PosixIO.lhs
+++ b/ghc/lib/posix/PosixIO.lhs
@@ -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