1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00

🔥 setBases.

This commit is contained in:
Rob Rix 2016-08-08 16:46:51 -04:00
parent 17bba1b762
commit 832d8606a6

View File

@ -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