From 2daa55b6b10811249a64dbdc02b95088a708ccff Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 31 Jul 2001 12:48:55 +0000
Subject: [PATCH] [project @ 2001-07-31 12:48:55 by simonmar] merge
 fptools/ghc/lib/std/PrelHandle.hsc rev. 1.13

---
 GHC/Handle.hsc |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/GHC/Handle.hsc b/GHC/Handle.hsc
index cbfdae3..7b39f6d 100644
--- a/GHC/Handle.hsc
+++ b/GHC/Handle.hsc
@@ -4,7 +4,7 @@
 #undef DEBUG
 
 -- -----------------------------------------------------------------------------
--- $Id: Handle.hsc,v 1.3 2001/07/31 12:47:13 simonmar Exp $
+-- $Id: Handle.hsc,v 1.4 2001/07/31 12:48:55 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1994-2001
 --
@@ -1163,7 +1163,6 @@ hSetBinaryMode handle bin =
        throwErrnoIfMinus1_ "hSetBinaryMode"
           (setmode (fromIntegral (haFD handle_)) flg)
        return handle_{haIsBin=bin}
-  return ()
 
 foreign import "setmode" setmode :: CInt -> CInt -> IO CInt
 #else
-- 
1.7.10.4