avoid warning

diff --git a/Annex/Ingest.hs b/Annex/Ingest.hs
index ed2c6d5ac526a216793ae0f282088bed98b009ad..3466650dd67b7af503d40e0a3c0d158de556da67 100644 (file)
--- a/Annex/Ingest.hs
+++ b/Annex/Ingest.hs
@@ -229,7 +229,7 @@ finishIngestUnlocked' key source restage lar = do
  -}
 populateUnlockedFiles :: Key -> KeySource -> Restage -> Maybe LinkAnnexResult -> Annex ()
 populateUnlockedFiles _ _ _ (Just LinkAnnexNoop) = return ()
-populateUnlockedFiles key source restage lar = do
+populateUnlockedFiles key source restage _ = do
        obj <- calcRepo (gitAnnexLocation key)
        g <- Annex.gitRepo
        ingestedf <- flip fromTopFilePath g