fix windows build
This commit is contained in:
parent
c5bcb55a8b
commit
2efceba789
1 changed files with 1 additions and 1 deletions
|
@ -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'
|
||||
|
|
Loading…
Add table
Reference in a new issue