From 91e25e811ea2a4a9725fdbed881b7850d98a8473 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Wed, 27 Jul 2016 00:22:31 -0400
Subject: [PATCH] pqGramDecorator takes p and q parameters.

---
 src/Diffing.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Diffing.hs b/src/Diffing.hs
index 5702389cf..e01a17389 100644
--- a/src/Diffing.hs
+++ b/src/Diffing.hs
@@ -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