From 4f8ef622aa63803a6cbaa1012253c57210522ba1 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 14 Jul 2016 10:36:18 -0400 Subject: [PATCH] Use the Bicrosswalk instance directly. --- src/Alignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index 45adfa735..356b21d7b 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -95,7 +95,7 @@ alignBranch getRange children ranges = case intersectingChildren of where (intersectingChildren, nonIntersectingChildren) = partition (or . intersects getRange headRanges) children (symmetricalChildren, asymmetricalChildren) = partition (isThese . runJoin) intersectingChildren intersectionsWithHeadRanges = fromThese True True . runJoin . intersects getRange headRanges - Just headRanges = sequenceL (listToMaybe <$> Join (runBothWith These ranges)) + Just headRanges = Join <$> bisequenceL (runJoin (listToMaybe <$> Join (runBothWith These ranges))) (leftRange, rightRange) = splitThese headRanges alignAsymmetrically range advanceBy = let (line, remaining) = lineAndRemaining asymmetricalChildren range in line $ alignBranch getRange (remaining <> symmetricalChildren <> nonIntersectingChildren) (modifyJoin (advanceBy (drop 1)) ranges)