[separate matches/matchcount
Ketil Malde <ketil@malde.org>**20080819131842] {
hunk ./src/BFIndex.hs 22
-show' (qry,tgt,score) = if score > 0 then (toStr qry ++ " matches: " ++ tgt ++ " score: " ++ show score) else ""
+show' (qry,tgt,score) = if length (filter id score) > 0 then (toStr qry ++ " matches: " ++ tgt ++ " score: " ++ show score) else ""
hunk ./src/BFIndex.hs 24
-classify :: [(FilePath,BloomFilter)] -> IO [(ByteString,FilePath,Int)]
+classify :: [(FilePath,BloomFilter)] -> IO [(ByteString,FilePath,[Bool])]
hunk ./src/BloomFilter.hs 27
-matches :: BloomFilter -> Sequence -> Int
+matches :: BloomFilter -> Sequence -> [Bool]
hunk ./src/BloomFilter.hs 30
-               in length $ filter id $ zipWith (||) fwd (reverse rev)
+               in zipWith (||) fwd (reverse rev)
hunk ./src/BloomFilter.hs 32
+matchcount bf = length . filter id . matches bf
}
