[commit: ghc] master: Fixup overlooked `unless` occurence (e1c6352)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e1c6352ad3c45f7d03655e1f3fe1595c2a9b7796/ghc

>---------------------------------------------------------------

commit e1c6352ad3c45f7d03655e1f3fe1595c2a9b7796
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Fri Sep 19 16:49:20 2014 +0200

    Fixup overlooked `unless` occurence
    
    This was broken in eae19112462fe77a3f1298bff12b409b205a581d


>---------------------------------------------------------------

e1c6352ad3c45f7d03655e1f3fe1595c2a9b7796
 libraries/base/GHC/IO/FD.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libraries/base/GHC/IO/FD.hs b/libraries/base/GHC/IO/FD.hs
index 80030b2..fcc314e 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,