fix invered logic for shouldDrop

This commit is contained in:
Joey Hess 2012-10-08 16:12:02 -04:00
parent 1eedf495c3
commit 836561e057

View file

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