From 128df24d5493088039eabd932bf756f34e2f00dc Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 2 Mar 1999 09:17:03 +0000
Subject: [PATCH] [project @ 1999-03-02 09:17:02 by simonm] makeForeignObj -->
 mkForeignObj

---
 ghc/lib/misc/SocketPrim.lhs |    2 +-
 ghc/lib/posix/PosixIO.lhs   |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4