Fix CreateDirectoryIfMissing001 racing tests on OS X

It seems that, on the flavor of Mac OS X available on GitHub Actions,
InvalidArgument can be thrown by mkdir (createDirectory) when
createDirectoryIfMissing is raced against removeDirectoryRecursive.

System/Directory/Internal/Prelude.hs

@@ -129,6 +129,7 @@ import Foreign.C
 import GHC.IO.Exception
   ( IOErrorType
     ( InappropriateType
+    , InvalidArgument
     , OtherError
     , UnsupportedOperation
     )

System/Directory/Internal/Windows.hsc

@@ -579,10 +579,14 @@ setTimes :: FilePath -> (Maybe POSIXTime, Maybe POSIXTime) -> IO ()
 setTimes path' (atime', mtime') =
   bracket (openFileHandle path' Win32.gENERIC_WRITE)
           Win32.closeHandle $ \ handle ->
+#if MIN_VERSION_Win32(2,12,0)
+  Win32.setFileTime handle Nothing (posixToWindowsTime <$> atime') (posixToWindowsTime <$> mtime')
+#else
   maybeWith with (posixToWindowsTime <$> atime') $ \ atime'' ->
   maybeWith with (posixToWindowsTime <$> mtime') $ \ mtime'' ->
   Win32.failIf_ not "" $
     Win32.c_SetFileTime handle nullPtr atime'' mtime''
+#endif
 
 -- | Open the handle of an existing file or directory.
 openFileHandle :: String -> Win32.AccessMode -> IO Win32.HANDLE

directory.cabal

@@ -58,7 +58,7 @@ Library
         time     >= 1.4 && < 1.12,
         filepath >= 1.3 && < 1.5
     if os(windows)
-        build-depends: Win32 >= 2.2.2 && < 2.12
+        build-depends: Win32 >= 2.2.2 && < 2.13
     else
         build-depends: unix >= 2.5.1 && < 2.9
 

tests/CreateDirectoryIfMissing001.hs

@@ -81,7 +81,10 @@ main _t = do
     -- (see bug #2924 on GHC Trac)
     create =
       createDirectoryIfMissing True testdir_a `catch` \ e ->
-      if isDoesNotExistError e || isPermissionError e || isInappropriateTypeError e
+      if isDoesNotExistError e
+         || isPermissionError e
+         || isInappropriateTypeError e
+         || ioeGetErrorType e == InvalidArgument
       then return ()
       else ioError e