From 63893c7aa6204c524e648e402cb904646ad174bf Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 13 Jul 2001 15:01:28 +0000
Subject: [PATCH 1/1] [project @ 2001-07-13 15:01:28 by simonmar] remove
 superfluous "return ()"

---
 ghc/lib/std/PrelHandle.hsc |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ghc/lib/std/PrelHandle.hsc b/ghc/lib/std/PrelHandle.hsc
index 58928a2..5862141 100644
--- a/ghc/lib/std/PrelHandle.hsc
+++ b/ghc/lib/std/PrelHandle.hsc
@@ -4,7 +4,7 @@
 #undef DEBUG
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelHandle.hsc,v 1.14 2001/07/13 11:48:52 rrt Exp $
+-- $Id: PrelHandle.hsc,v 1.15 2001/07/13 15:01:28 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1994-2001
 --
@@ -1174,7 +1174,7 @@ hIsTerminalDevice handle = do
 -- hSetBinaryMode
 
 #ifdef _WIN32
-hSetBinaryMode handle bin = 
+hSetBinaryMode handle bin =
   withAllHandles__ "hSetBinaryMode" handle $ \ handle_ ->
     do let flg | bin       = (#const O_BINARY)
 	       | otherwise = (#const O_TEXT)
@@ -1184,10 +1184,9 @@ hSetBinaryMode handle bin =
 
 foreign import "setmode" setmode :: CInt -> CInt -> IO CInt
 #else
-hSetBinaryMode handle bin = do
+hSetBinaryMode handle bin =
   withAllHandles__ "hSetBinaryMode" handle $ \ handle_ ->
     return handle_{haIsBin=bin}
-  return ()
 #endif
 
 -- -----------------------------------------------------------------------------
-- 
1.7.10.4