WINIO: Add support for WINIO to Cabal.

Author: Mistuke

Cabal/Distribution/Compat/Internal/TempFile.hs

@@ -12,7 +12,11 @@ import Distribution.Compat.Exception
 import System.FilePath        ((</>))
 import Foreign.C              (CInt, eEXIST, getErrno, errnoToIOError)
 
-import System.IO              (Handle, openTempFile, openBinaryTempFile)
+import System.IO              (Handle, openTempFile, openBinaryTempFile
+#if defined(__IO_MANAGER_WINIO__)
+                              , openBinaryTempFileWithDefaultPermissions
+#endif
+                               )
 import Data.Bits              ((.|.))
 import System.Posix.Internals (c_open, c_close, o_CREAT, o_EXCL, o_RDWR,
                                o_BINARY, o_NONBLOCK, o_NOCTTY,
@@ -36,10 +40,17 @@ import qualified System.Posix
 -- TODO: This file should probably be removed.
 
 -- This is a copy/paste of the openBinaryTempFile definition, but
--- if uses 666 rather than 600 for the permissions. The base library
--- needs to be changed to make this better.
+-- if uses 666 rather than 600 for the permissions. Newer versions
+-- of base have a new function with this behavior which we use on
+-- Windows when the new IO manager is used.
 openNewBinaryFile :: FilePath -> String -> IO (FilePath, Handle)
 openNewBinaryFile dir template = do
+  -- This method can't be used under WINIO. Also the current implementation has
+  -- thread safety issues depending on which GHC is used.  On newer GHC's let's
+  -- use the built in one.
+#if defined(__IO_MANAGER_WINIO__)
+  openBinaryTempFileWithDefaultPermissions dir template
+#else
   pid <- c_getpid
   findTempName pid
   where
@@ -95,6 +106,8 @@ pathSeparator = '\\'
 #else
 pathSeparator = '/'
 #endif
+-- /* __IO_MANAGER_WINIO__ */
+#endif
 
 -- FIXME: Copied from GHC.Handle
 std_flags, output_flags, rw_flags :: CInt