From 1a78d5e1ea98918245acba3fb53a76cf57eeaa57 Mon Sep 17 00:00:00 2001 From: joshvera Date: Tue, 11 Apr 2017 18:22:24 -0400 Subject: [PATCH] Rename k to q --- src/RWS.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/RWS.hs b/src/RWS.hs index 6239083c4..d60014851 100644 --- a/src/RWS.hs +++ b/src/RWS.hs @@ -93,16 +93,16 @@ run :: (Eq1 f, Functor f, HasField fields Category, HasField fields (Maybe Featu -> t (Term f (Record fields)) -> Eff (RWS f fields ': e) (RWSEditScript f fields) -> Eff e (RWSEditScript f fields) -run editDistance canCompare as bs = relay pure (\m k -> case m of - SES -> k $ ses (gliftEq (==) `on` fmap category) as bs +run editDistance canCompare as bs = relay pure (\m q -> case m of + SES -> q $ ses (gliftEq (==) `on` fmap category) as bs (GenFeaturizedTermsAndDiffs sesDiffs) -> - k $ genFeaturizedTermsAndDiffs sesDiffs + q $ genFeaturizedTermsAndDiffs sesDiffs (FindNearestNeighoursToDiff allDiffs featureAs featureBs) -> - k $ findNearestNeighboursToDiff editDistance canCompare allDiffs featureAs featureBs + q $ findNearestNeighboursToDiff editDistance canCompare allDiffs featureAs featureBs (DeleteRemaining allDiffs remainingDiffs) -> - k $ deleteRemaining allDiffs remainingDiffs + q $ deleteRemaining allDiffs remainingDiffs (InsertMapped allDiffs mappedDiffs) -> - k $ insertMapped allDiffs mappedDiffs) + q $ insertMapped allDiffs mappedDiffs) type Diff f fields = These (Term f (Record fields)) (Term f (Record fields))