Get the first ranges for a child.

2024-12-23 06:41:45 +03:00 · 2016-03-24 11:45:52 -04:00 · 2016-03-24 11:45:52 -04:00 · b05b1694a7
commit b05b1694a7
parent ccceb8d771
1 changed files with 1 additions and 0 deletions
--- a/src/Alignment.hs
+++ b/src/Alignment.hs
@ -136,6 +136,7 @@ groupChildrenByLine ranges children = go (fromThese [] [] $ runJoin ranges) chil
                           , (child:rest) <- children
                           = go ranges rest
                           | otherwise = uncurry (alignWith (fmap (flip (,) []) . Join)) ranges
+        firstRangesForChild child = getRange <$> head child
        getRange (Free (Annotated (Info range _) _)) = range
        getRange (Pure patch) | Info range _ :< _ <- getSplitTerm patch = range