From 0b91afb57df0852187aaf68d358f00d2934de040 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 15 Jun 2021 11:11:55 -0400 Subject: [PATCH] avoid warning --- Annex/Ingest.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/Ingest.hs b/Annex/Ingest.hs index ed2c6d5ac5..3466650dd6 100644 --- 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