Support time 1.11 and Win32 2.12 (#47)

* Allow time 1.11

* Support Win32 2.12

* Allow time 1.12

Author: tfausak

src/System/PosixCompat/Files.hsc

@@ -139,6 +139,7 @@ import System.PosixCompat.Types
 import System.Win32.File hiding (getFileType)
 import System.Win32.HardLink (createHardLink)
 import System.Win32.Time (FILETIME(..), getFileTime, setFileTime)
+import System.Win32.Types (HANDLE)
 
 import System.PosixCompat.Internal.Time (
       getClockTime, clockTimeToEpochTime
@@ -452,7 +453,7 @@ setFileTimes :: FilePath -> EpochTime -> EpochTime -> IO ()
 setFileTimes file atime mtime =
   bracket openFileHandle closeHandle $ \handle -> do
     (creationTime, _, _) <- getFileTime handle
-    setFileTime
+    setFileTimeCompat
       handle
       creationTime
       (epochTimeToFileTime atime)
@@ -472,6 +473,14 @@ setFileTimes file atime mtime =
         ll :: Int64
         ll = fromIntegral t * 10000000 + 116444736000000000
 
+setFileTimeCompat :: HANDLE -> FILETIME -> FILETIME -> FILETIME -> IO ()
+setFileTimeCompat h crt acc wrt =
+#if MIN_VERSION_Win32(2, 12, 0)
+    setFileTime h (Just crt) (Just acc) (Just wrt)
+#else
+    setFileTime h crt acc wrt
+#endif
+
 touchFile :: FilePath -> IO ()
 touchFile name =
     do t <- liftM clockTimeToEpochTime getClockTime

unix-compat.cabal

@@ -57,7 +57,7 @@ Library
       else
         build-depends: directory == 1.1.*
     else
-      build-depends: time >= 1.0 && < 1.10
+      build-depends: time >= 1.0 && < 1.13
       build-depends: directory >= 1.2 && < 1.4
 
     other-modules: