Adjust behaviour of gcd

[ghc-base.git] / cbits / consUtils.c

diff --git a/cbits/consUtils.c b/cbits/consUtils.c
index 55266b4..b20eb7a 100644 (file)
--- 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