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

5
Annex/Fixup.hs
View file

@ -112,9 +112,8 @@ fixupUnusualRepos r@(Repo { location = l@(Local { worktree = Just w, gitdir = d
replacedotgit = whenM (doesFileExist dotgit) $ do
linktarget <- relPathDirToFile w d
let dotgit' = fromOsPath dotgit
removeWhenExistsWith R.removeLink dotgit'
R.createSymbolicLink (fromOsPath linktarget) dotgit'
removeWhenExistsWith removeFile dotgit
R.createSymbolicLink (fromOsPath linktarget) (fromOsPath dotgit)
-- Unsetting a config fails if it's not set, so ignore failure.
unsetcoreworktree = void $ Git.Config.unset "core.worktree" r