From c9fb18f128f868eae5e099715ef1cf9ea13246b0 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 4 Apr 2016 16:43:57 -0400 Subject: [PATCH] :fire: the commented-out alignTerm. --- src/Alignment.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index e074aa2dd..22fedd78e 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -121,8 +121,6 @@ alignPatch _ _ = [] -- alignPatch sources (Replace term1 term2) = alignWith Join (hylo (alignTerm sources) unCofree term1) -- (hylo (alignTerm sources) unCofree term2) -- --- alignTerm :: Both (Source Char) -> Join These Info -> Syntax leaf (AlignedDiff leaf) -> AlignedDiff leaf --- alignTerm sources infos syntax = (\ (source, info) -> Free . Annotated info <$> alignSyntax source (characterRange info) syntax) <$> Join (pairWithThese sources (runJoin infos)) alignDiff :: Both (Source Char) -> Diff leaf Info -> AlignedDiff leaf alignDiff sources diff = iter (uncurry (alignSyntax sources) . (annotation &&& syntax)) (alignPatch sources <$> diff)