Fixup overlooked `unless` occurence
authorHerbert Valerio Riedel <hvr@gnu.org>
Fri, 19 Sep 2014 14:49:20 +0000 (16:49 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Fri, 19 Sep 2014 14:49:20 +0000 (16:49 +0200)
This was broken in eae19112462fe77a3f1298bff12b409b205a581d

libraries/base/GHC/IO/FD.hs

index 80030b2..fcc314e 100644 (file)
@@ -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,