fix 2 build warnings

diff --git a/Annex/Drop.hs b/Annex/Drop.hs
index 79d6d63ff03a429674d07d007f6e55bb7d319a85..6cc2c9073f4f830b222da65387af2055c1a87c8b 100644 (file)
--- 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