touch files with high-resolution timestamp

Needs unix 2.7.2, but that was included in ghc 8.0.1 (and much older)
so not really a new dep.
This commit is contained in:
Joey Hess 2018-10-29 22:22:36 -04:00
parent 94b7968f1f
commit 5d97898a7c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 19 additions and 26 deletions

View file

@ -93,7 +93,7 @@ fixSymlink file link = do
liftIO $ do
#if ! defined(mingw32_HOST_OS)
-- preserve mtime of symlink
mtime <- catchMaybeIO $ TimeSpec . modificationTime
mtime <- catchMaybeIO $ modificationTimeHighRes
<$> getSymbolicLinkStatus file
#endif
createDirectoryIfMissing True (parentDir file)