From: sewardj <unknown>
Date: Fri, 29 Jun 2001 13:57:08 +0000 (+0000)
Subject: [project @ 2001-06-29 13:57:08 by sewardj]
X-Git-Tag: Approximately_9120_patches~1647
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f2e4f258587b5b511ee3791c7def1abecbfd7fd7;p=ghc-hetmet.git

[project @ 2001-06-29 13:57:08 by sewardj]
Remove spurious "return ()" from WIN32 hSetBinaryMode.  Why this didn't
cause a syntax error before now completely escapes me.
---

diff --git a/ghc/lib/std/PrelHandle.hsc b/ghc/lib/std/PrelHandle.hsc
index 084a182..c50fb48 100644
--- a/ghc/lib/std/PrelHandle.hsc
+++ b/ghc/lib/std/PrelHandle.hsc
@@ -4,7 +4,7 @@
 #undef DEBUG
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelHandle.hsc,v 1.12 2001/06/29 13:41:43 simonmar Exp $
+-- $Id: PrelHandle.hsc,v 1.13 2001/06/29 13:57:08 sewardj Exp $
 --
 -- (c) The University of Glasgow, 1994-2001
 --
@@ -1181,7 +1181,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