fix windows build

This commit is contained in:
Joey Hess 2023-04-12 19:33:19 -04:00
parent c5bcb55a8b
commit 2efceba789
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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'