From: Ian Lynagh <igloo@earth.li>
Date: Wed, 8 Sep 2010 12:30:37 +0000 (+0000)
Subject: Fix Windows build; patches frmo ezyang
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c2d942505f64c79c69b0f83feb8b0ce1a15eeb2e;p=ghc-base.git

Fix Windows build; patches frmo ezyang
---

diff --git a/cbits/consUtils.c b/cbits/consUtils.c
index 55266b4..b20eb7a 100644
--- a/cbits/consUtils.c
+++ b/cbits/consUtils.c
@@ -21,12 +21,12 @@ int is_console__(int fd) {
         /* TTY must be a character device */
         return 0;
     }
-    h = get_osfhandle(fd);
+    h = (HANDLE)_get_osfhandle(fd);
     if (h == INVALID_HANDLE_VALUE) {
         /* Broken handle can't be terminal */
         return 0;
     }
-    if (GetConsoleMode(h, &st) == INVALID_HANDLE_VALUE) {
+    if (!GetConsoleMode(h, &st)) {
         /* GetConsoleMode appears to fail when it's not a TTY.  In
            particular, it's what most of our terminal functions
            assume works, so if it doesn't work for all intents