Fix FILETIME calculation on Windows 32 Bit.

t seems to be Int32 instead of Int64 here.
jacobstanley · Dec 6, 2016 · 4b4d227 · 4b4d227
1 parent 0ad1f0c
commit 4b4d227
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/System/PosixCompat/Files.hsc b/src/System/PosixCompat/Files.hsc
@@ -433,7 +433,7 @@ setFileTimes file atime mtime =
     epochTimeToFileTime (CTime t) = FILETIME (fromIntegral ll)
       where
         ll :: Int64
-        ll = t * 10000000 + 116444736000000000
+        ll = fromIntegral t * 10000000 + 116444736000000000
 
 touchFile :: FilePath -> IO ()
 touchFile name =