github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

pqGramDecorator takes p and q parameters.

Browse Source
This commit is contained in:
Rob Rix 2016-07-27 00:22:31 -04:00
parent 755d9877b4
commit 91e25e811e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Diffing.hs
View File

@ -126,8 +126,8 @@ compareCategoryEq = (==) `on` category . extract
termCostDecorator :: (Prologue.Foldable f, Functor f) => TermDecorator f a Cost
termCostDecorator c = 1 + sum (cost <$> tailF c)
pqGramDecorator :: (Prologue.Foldable f, Functor f) => (forall b. CofreeF f (Record a) b -> label) -> TermDecorator f a (DList.DList (Gram label))
pqGramDecorator getLabel (a :< s) = empty
pqGramDecorator :: (Prologue.Foldable f, Functor f) => (forall b. CofreeF f (Record a) b -> label) -> Int -> Int -> TermDecorator f a (DList.DList (Gram label))
pqGramDecorator getLabel p q (a :< s) = empty
-- | The sum of the node count of the diff’s patches.
diffCostWithCachedTermCosts :: HasField fields Cost => Diff leaf (Record fields) -> Integer