fix build warning

diff --git a/Annex/Fixup.hs b/Annex/Fixup.hs
index 6d536f9f3d968f23bb0a91060f81d397dc7a48d9..1e245668f34ec2c6b6917d327ea4100118cc3000 100644 (file)
--- 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