mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix 2 build warnings

Browse source
This commit is contained in:
Joey Hess 2021-06-21 11:27:18 -04:00
parent 538780ebaf
commit 694fe3702c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Drop.hs
View file

@ -21,7 +21,6 @@ import Annex.Wanted
import Annex.Content import Annex.Content
import Annex.SpecialRemote.Config import Annex.SpecialRemote.Config
import qualified Database.Keys import qualified Database.Keys
import Git.FilePath
import qualified Data.Set as S 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 :: [UUID] -> [Remote] -> Reason -> Bool -> Key -> AssociatedFile -> SeekInput -> [VerifiedCopy] -> (CommandStart -> CommandCleanup) -> Annex ()
handleDropsFrom locs rs reason fromhere key afile si preverified runner = do handleDropsFrom locs rs reason fromhere key afile si preverified runner = do
g <- Annex.gitRepo
fs <- Database.Keys.getAssociatedFilesIncluding afile key fs <- Database.Keys.getAssociatedFilesIncluding afile key
n <- getcopies fs n <- getcopies fs
void $ if fromhere && checkcopies n Nothing void $ if fromhere && checkcopies n Nothing