diff --git a/src/Alignment.hs b/src/Alignment.hs
index 1bac7ed05..404c311d5 100644
--- 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