From a4860575fcc59c6fcdf9f7fe74e137264dc05da8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 6 Apr 2005 22:05:58 +0000
Subject: [PATCH] [project @ 2005-04-06 22:05:58 by simonmar] Fix bug in
 hDuplicateTo

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

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