From d33cba45ea154132eb04a4bf0bd91bc860625c19 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 25 Oct 2004 13:47:34 +0000
Subject: [PATCH] [project @ 2004-10-25 13:47:34 by simonmar] hDuplicate,
 hDuplicateTo: add finalizers

---
 GHC/Handle.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 3cc214f..a7e9e98 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -1447,13 +1447,13 @@ foreign import ccall unsafe "__hscore_setmode"
 hDuplicate :: Handle -> IO Handle
 hDuplicate h@(FileHandle path m) = do
   new_h_ <- withHandle' "hDuplicate" h m (dupHandle_ Nothing)
-  new_m <- newMVar new_h_
-  return (FileHandle path new_m)
+  newFileHandle path (handleFinalizer path) new_h_
 hDuplicate h@(DuplexHandle path r w) = do
   new_w_ <- withHandle' "hDuplicate" h w (dupHandle_ Nothing)
   new_w <- newMVar new_w_
   new_r_ <- withHandle' "hDuplicate" h r (dupHandle_ (Just new_w))
   new_r <- newMVar new_r_
+  addMVarFinalizer new_w (handleFinalizer path new_w)
   return (DuplexHandle path new_r new_w)
 
 dupHandle_ other_side h_ = do
-- 
1.7.10.4