From: sof <unknown>
Date: Sun, 12 Sep 1999 16:24:46 +0000 (+0000)
Subject: [project @ 1999-09-12 16:24:46 by sof]
X-Git-Tag: Approximately_9120_patches~5826
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=78d10ce46a7d0c60aab9e088a8004f1b6dd435d5;p=ghc-hetmet.git

[project @ 1999-09-12 16:24:46 by sof]
inputReady() and mingw - always return 1, not 0
---

diff --git a/ghc/lib/std/cbits/inputReady.c b/ghc/lib/std/cbits/inputReady.c
index 2e07fcf..c1af5cc 100644
--- a/ghc/lib/std/cbits/inputReady.c
+++ b/ghc/lib/std/cbits/inputReady.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: inputReady.c,v 1.4 1999/03/01 09:23:58 sof Exp $
+ * $Id: inputReady.c,v 1.5 1999/09/12 16:24:46 sof Exp $
  *
  * hReady Runtime Support
  */
@@ -71,7 +71,7 @@ StgInt msecs;
     }
 
 #ifdef mingw32_TARGET_OS
-    return 0;
+    return 1;
 #else
     fd = fo->fd;