From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 21 Jul 2025 16:25:17 +0000 (-0400)
Subject: fix build warning
X-Git-Tag: archive/raspbian/10.20251029-1+rpi1~1^2~7^2~8
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=de6c5b6885d0d9333cc5937f2fe9c494b4a9de2e;p=git-annex.git

fix build warning
---

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