From: simonm <unknown>
Date: Fri, 12 Feb 1999 10:36:05 +0000 (+0000)
Subject: [project @ 1999-02-12 10:36:05 by simonm]
X-Git-Tag: Approximately_9120_patches~6560
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=94478a5019631459f9fa065c91346e2cf0f10f52;p=ghc-hetmet.git

[project @ 1999-02-12 10:36:05 by simonm]
finalise/finalize changes.
---

diff --git a/ghc/lib/posix/PosixIO.lhs b/ghc/lib/posix/PosixIO.lhs
index fa52785..4a1a56e 100644
--- a/ghc/lib/posix/PosixIO.lhs
+++ b/ghc/lib/posix/PosixIO.lhs
@@ -36,7 +36,7 @@ import PrelHandle (newHandle, getBMode__, getHandleFd,
 import IO
 import Addr
 import Foreign
-import Weak 	( addForeignFinaliser )
+import Weak 	( addForeignFinalizer )
 import CString ( freeze, allocChars, packStringIO, unpackNBytesBAIO )
 
 import PosixUtil
@@ -113,9 +113,9 @@ fdToHandle fd@(FD# fd#) = do
 #ifndef __PARALLEL_HASKELL__
 	 fo <- makeForeignObj fo
 	 if fd == stdInput || fd == stdOutput || fd == stdError then
-	      addForeignFinaliser fo (freeStdFileObject fo)
+	      addForeignFinalizer fo (freeStdFileObject fo)
 	  else
-	      addForeignFinaliser fo (freeFileObject fo)
+	      addForeignFinalizer fo (freeFileObject fo)
 #endif
 	 (bm, bf_size)  <- getBMode__ fo
          mkBuffer__ fo bf_size