From: simonmar <unknown>
Date: Wed, 6 Apr 2005 22:05:58 +0000 (+0000)
Subject: [project @ 2005-04-06 22:05:58 by simonmar]
X-Git-Tag: arity-anal-branch-point~8
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a4860575fcc59c6fcdf9f7fe74e137264dc05da8;hp=7e94c32146fa25a0db24ffe46d5c28d108a463e3;p=haskell-directory.git

[project @ 2005-04-06 22:05:58 by simonmar]
Fix bug in hDuplicateTo

MERGE TO STABLE
---

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 513a4a4..056e2af 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -1536,10 +1536,10 @@ dupHandle other_side h_ = do
 		c_dup (fromIntegral (haFD h_))
   dupHandle_ other_side h_ new_fd
 
-dupHandleTo other_side h_ hto_ = do
+dupHandleTo other_side hto_ h_ = do
   flushBuffer h_
   new_fd <- throwErrnoIfMinus1 "dupHandleTo" $ 
-	        c_dup2 (fromIntegral (haFD hto_)) (fromIntegral (haFD h_))
+	        c_dup2 (fromIntegral (haFD h_)) (fromIntegral (haFD hto_))
   dupHandle_ other_side h_ new_fd
 
 dupHandle_ other_side h_ new_fd = do