X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=cbits%2FconsUtils.c;h=fa11000594ea4f9bc7784336635cb8476989bdf5;hb=5f18f21db608de60eaf77bb16745937c58f798a9;hp=7c50c7b9b5b1ea0935f3272ba14ddfa51529626e;hpb=349544274787b6d587e85e75e6c754a618b813aa;p=ghc-base.git

diff --git a/cbits/consUtils.c b/cbits/consUtils.c
index 7c50c7b..fa11000 100644
--- a/cbits/consUtils.c
+++ b/cbits/consUtils.c
@@ -25,10 +25,13 @@ set_console_buffering__(int fd, int cooked)
     DWORD flgs = ENABLE_LINE_INPUT | ENABLE_ECHO_INPUT;
     
     if ( (h = (HANDLE)_get_osfhandle(fd)) != INVALID_HANDLE_VALUE ) {
+        /* Only for console-connected Handles */
+      if ( GetFileType(h) == FILE_TYPE_CHAR ) {
 	if ( GetConsoleMode(h,&st) &&
-	     SetConsoleMode(h, cooked ? (st | ENABLE_LINE_INPUT) : st & ~flgs)  ) {
+             SetConsoleMode(h, cooked ? (st | flgs) : st & ~flgs)  ) {
 	    return 0;
-	}
+        }
+      }
     }
     return -1;
 }