From 694fe3702c7cd7e4a8343423aaa3eda76c2778cd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 21 Jun 2021 11:27:18 -0400 Subject: [PATCH] fix 2 build warnings --- Annex/Drop.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/Annex/Drop.hs b/Annex/Drop.hs index 79d6d63ff0..6cc2c9073f 100644 --- a/Annex/Drop.hs +++ b/Annex/Drop.hs @@ -21,7 +21,6 @@ import Annex.Wanted import Annex.Content import Annex.SpecialRemote.Config import qualified Database.Keys -import Git.FilePath import qualified Data.Set as S @@ -51,7 +50,6 @@ type Reason = String -} handleDropsFrom :: [UUID] -> [Remote] -> Reason -> Bool -> Key -> AssociatedFile -> SeekInput -> [VerifiedCopy] -> (CommandStart -> CommandCleanup) -> Annex () handleDropsFrom locs rs reason fromhere key afile si preverified runner = do - g <- Annex.gitRepo fs <- Database.Keys.getAssociatedFilesIncluding afile key n <- getcopies fs void $ if fromhere && checkcopies n Nothing