From 0e36a8af388f446059338d47ad7c4717e1309bc9 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 18 Mar 2016 14:00:19 -0400 Subject: [PATCH] Rename the parameter to note its plurality. --- src/Alignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index e26ab16a0..ead4cb626 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -120,4 +120,4 @@ alignPatch (Replace term1 term2) = let info1 :< AlignThis a = hylo (alignTermBy both (fst info1) (snd info2) :< AlignThese a b alignTermBy :: (forall r. [Syntax leaf r] -> Aligned (Syntax leaf) r) -> Both Info -> Syntax leaf (AlignedDiff leaf) -> AlignedDiff leaf -alignTermBy constructor info syntax = info :< constructor [syntax] +alignTermBy constructor infos syntax = infos :< constructor [syntax]