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

replace removeLink with removeFile

Browse source 
same reasoning as in commit 5cc8d9d03b
This commit is contained in:
Joey Hess 2025-02-11 13:41:26 -04:00
parent 90eb1e2da6
commit f8bb9a8734
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 16 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/Link.hs
View file

@ -116,12 +116,10 @@ makeAnnexLink = makeGitLink
makeGitLink :: LinkTarget -> OsPath -> Annex ()
makeGitLink linktarget file = ifM (coreSymlinks <$> Annex.getGitConfig)
( liftIO $ do
void $ tryIO $ R.removeLink file'
R.createSymbolicLink linktarget file'
void $ tryIO $ removeFile file
R.createSymbolicLink linktarget (fromOsPath file)
, liftIO $ F.writeFile' file linktarget
)
where
file' = fromOsPath file
{- Creates a link on disk, and additionally stages it in git. -}
addAnnexLink :: LinkTarget -> OsPath -> Annex ()