From 94478a5019631459f9fa065c91346e2cf0f10f52 Mon Sep 17 00:00:00 2001 From: simonm Date: Fri, 12 Feb 1999 10:36:05 +0000 Subject: [PATCH] [project @ 1999-02-12 10:36:05 by simonm] finalise/finalize changes. --- ghc/lib/posix/PosixIO.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4