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:
parent
94b7968f1f
commit
5d97898a7c
5 changed files with 19 additions and 26 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue