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

instance Hashable Key for bloomfilter

Browse source
This commit is contained in:
Joey Hess 2015-06-16 18:37:41 -04:00
parent 8b74aec3ea
commit a0a8127956
4 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Unused.hs
View file

@ -167,7 +167,7 @@ excludeReferenced :: RefSpec -> [Key] -> Annex [Key]
excludeReferenced refspec ks = runfilter firstlevel ks >>= runfilter secondlevel
where
runfilter _ [] = return [] -- optimisation
runfilter a l = bloomFilter show l <$> genBloomFilter show a
runfilter a l = bloomFilter l <$> genBloomFilter a
firstlevel = withKeysReferencedM
secondlevel = withKeysReferencedInGit refspec