diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-09-19 16:49:20 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-09-19 16:49:20 +0200 |
| commit | e1c6352ad3c45f7d03655e1f3fe1595c2a9b7796 (patch) | |
| tree | 80b34723c55bf083a797be384754fc8daed6c5d5 /libraries | |
| parent | 0aaf812ed0a4a4be9528b2e2f6b72bee7cd8002d (diff) | |
| download | haskell-e1c6352ad3c45f7d03655e1f3fe1595c2a9b7796.tar.gz | |
Fixup overlooked `unless` occurence
This was broken in eae19112462fe77a3f1298bff12b409b205a581d
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/GHC/IO/FD.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/IO/FD.hs b/libraries/base/GHC/IO/FD.hs index 80030b2b78..fcc314e402 100644 --- a/libraries/base/GHC/IO/FD.hs +++ b/libraries/base/GHC/IO/FD.hs @@ -259,7 +259,7 @@ mkFD fd iomode mb_stat is_socket is_nonblock = do _other_type -> return () #ifdef mingw32_HOST_OS - unless is_socket $ setmode fd True >> return () + when (not is_socket) $ setmode fd True >> return () #endif return (FD{ fdFD = fd, |