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

fix invered logic for shouldDrop

Browse source
This commit is contained in:
Joey Hess 2012-10-08 16:12:02 -04:00
parent 1eedf495c3
commit 836561e057
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Wanted.hs
View file

@ -47,4 +47,4 @@ shouldDrop _ _ False = return True
shouldDrop from file True = do shouldDrop from file True = do
fp <- inRepo $ toTopFilePath file fp <- inRepo $ toTopFilePath file
u <- maybe getUUID (return . Remote.uuid) from u <- maybe getUUID (return . Remote.uuid) from
isPreferredContent (Just u) (S.singleton u) fp not <$> isPreferredContent (Just u) (S.singleton u) fp