From de6c5b6885d0d9333cc5937f2fe9c494b4a9de2e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 21 Jul 2025 12:25:17 -0400 Subject: [PATCH] fix build warning --- Annex/Fixup.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/Fixup.hs b/Annex/Fixup.hs index 6d536f9f3d..1e245668f3 100644 --- a/Annex/Fixup.hs +++ b/Annex/Fixup.hs @@ -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