From f7c4c91cfe3de4d8dd7f4810b354f8bf6a57a320 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 4 Apr 2016 15:22:14 -0400 Subject: [PATCH] Align `Fixed` nodes. --- src/Alignment.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Alignment.hs b/src/Alignment.hs index 78f822a70..9b5ee3ee4 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -129,6 +129,7 @@ alignDiff sources diff = iter alignSyntax (alignPatch sources <$> diff) alignSyntax (Annotated infos syntax) = case syntax of Leaf s -> modifyJoin (runBothWith bimap (((Free . (`Annotated` Leaf s)) .) . setCharacterRange <$> infos)) <$> sequenceL lineRanges Indexed children -> wrapInBranch Indexed <$> groupChildrenByLine lineRanges children + Fixed children -> wrapInBranch Fixed <$> groupChildrenByLine lineRanges children _ -> [] where lineRanges = runBothWith ((Join .) . These) (actualLineRanges <$> (characterRange <$> infos) <*> sources) wrapInBranch constructor = modifyJoin (runBothWith bimap ((\ info (range, children) -> Free (Annotated (setCharacterRange info range) (constructor children))) <$> infos))