From 2efceba789bfc5645a1af0b3319070ec655c4447 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 12 Apr 2023 19:33:19 -0400 Subject: [PATCH] fix windows build --- Utility/Terminal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Terminal.hs b/Utility/Terminal.hs index 621fa6047a..7fe3640bc1 100644 --- a/Utility/Terminal.hs +++ b/Utility/Terminal.hs @@ -37,7 +37,7 @@ checkIsTerminal h = do h' <- getStdHandle sTD_OUTPUT_HANDLE `catch` \(_ :: IOError) -> return nullHANDLE - if h == nullHANDLE + if h' == nullHANDLE then return (IsTerminal False) else do b' <- isMinTTYHandle h'