mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build

Browse source
This commit is contained in:
Joey Hess 2020-03-09 12:29:40 -04:00
parent 6eb52cf5f1
commit 01acb5212e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Command/Fix.hs
View file

@ -88,17 +88,16 @@ makeHardLink file key = do
fixSymlink :: FilePath -> FilePath -> CommandPerform
fixSymlink file link = do
liftIO $ do
#if ! defined(mingw32_HOST_OS)
-- preserve mtime of symlink
mtime <- catchMaybeIO $ modificationTimeHiRes
<$> getSymbolicLinkStatus file
-- preserve mtime of symlink
mtime <- liftIO $ catchMaybeIO $ modificationTimeHiRes
<$> getSymbolicLinkStatus file
#endif
createWorkTreeDirectory (parentDir file)
removeFile file
createSymbolicLink link file
createWorkTreeDirectory (parentDir file)
liftIO $ removeFile file
liftIO $ createSymbolicLink link file
#if ! defined(mingw32_HOST_OS)
maybe noop (\t -> touch file t False) mtime
liftIO $ maybe noop (\t -> touch file t False) mtime
#endif
next $ cleanupSymlink file

2
Command/Fsck.hs
View file

@ -219,7 +219,7 @@ fixLink key file = do
go want have
| want /= fromRawFilePath (fromInternalGitPath have) = do
showNote "fixing link"
liftIO $ createWorkTreeDirectory (parentDir (fromRawFilePath file))
createWorkTreeDirectory (parentDir (fromRawFilePath file))
liftIO $ removeFile (fromRawFilePath file)
addAnnexLink want file
| otherwise = noop