From 6da663130262159163ac0fb686fc8b7015903285 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 1 Dec 2015 15:30:54 -0500 Subject: [PATCH] Name the line range. --- app/Split.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Split.hs b/app/Split.hs index 097bf1a39..0f976d743 100644 --- a/app/Split.hs +++ b/app/Split.hs @@ -22,4 +22,4 @@ splitPatch before after patch = (fmap (splitTerm before) $ Patch.before patch, f splitTerm :: String -> Term a Info -> Element a splitTerm source term = toElement term where - toElement ((Info range _ categories) :< syntax) = (foldr (const . Just) Nothing categories, substring range source) :< fmap toElement syntax + toElement ((Info range lineRange categories) :< syntax) = (foldr (const . Just) Nothing categories, substring range source) :< fmap toElement syntax