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

fix build warning

Browse source
This commit is contained in:
Joey Hess 2025-07-21 12:25:17 -04:00
parent d9bd90e598
commit de6c5b6885
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Fixup.hs
View file

@ -93,7 +93,7 @@ fixupDirect r = r
- use yet. Except, do set mainWorkTreePath. - use yet. Except, do set mainWorkTreePath.
-} -}
fixupUnusualRepos :: Repo -> GitConfig -> IO Repo fixupUnusualRepos :: Repo -> GitConfig -> IO Repo
fixupUnusualRepos r@(Repo { location = l@(Local { worktree = Just w, gitdir = d }) }) c fixupUnusualRepos r@(Repo { location = Local { worktree = Just w, gitdir = d } }) c
| isNothing (annexVersion c) = | isNothing (annexVersion c) =
ifM (needsGitLinkFixup r) ifM (needsGitLinkFixup r)
( setworktreepath r ( setworktreepath r