From 832d8606a6ba93e0c586d68dd48dcb6fb87e6790 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 8 Aug 2016 16:46:51 -0400 Subject: [PATCH] :fire: setBases. --- src/Data/RandomWalkSimilarity.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Data/RandomWalkSimilarity.hs b/src/Data/RandomWalkSimilarity.hs index c16b0f918..ef108f09e 100644 --- a/src/Data/RandomWalkSimilarity.hs +++ b/src/Data/RandomWalkSimilarity.hs @@ -98,8 +98,6 @@ decorateTermWithPQGram q = cata algebra where algebra :: Traversable f => CofreeF f (Record (Gram label ': fields)) (Cofree f (Record (Gram label ': fields))) -> Cofree f (Record (Gram label ': fields)) algebra (RCons gram rest :< functor) = cofree ((gram .: rest) :< functor) -- (gram, DList.fromList (windowed q setBases [] (fst . getGrams . extract <$> toList functor)) <> foldMap (snd . getGrams . extract) functor) - setBases :: Gram label -> [Gram label] -> [Gram label] -> [Gram label] - setBases gram siblings rest = gram { base = padToSize q (foldMap base siblings) } : rest getGrams :: HasField fields (Gram label, DList.DList (Gram label)) => Record fields -> (Gram label, DList.DList (Gram label)) getGrams = getField