diff --git a/src/Data/RandomWalkSimilarity.hs b/src/Data/RandomWalkSimilarity.hs index dd036e3d1..97345fcf1 100644 --- a/src/Data/RandomWalkSimilarity.hs +++ b/src/Data/RandomWalkSimilarity.hs @@ -62,7 +62,6 @@ rws compare as bs constantTimeEditDistance key a = fromMaybe (maxBound :: Int) $ diffCostOfMaybes . cutoff 10 <$> compare (term key) (term a) - -- ((== termIndex ) . termIndex) insertion previous unmappedA unmappedB kv@(UnmappedTerm _ _ b) = do put (previous, unmappedA, List.delete kv unmappedB) pure (negate 1, inserting b)