fix build warning

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

View file

@ -93,7 +93,7 @@ fixupDirect r = r
- use yet. Except, do set mainWorkTreePath.
-}
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) =
ifM (needsGitLinkFixup r)
( setworktreepath r