diff --git a/src/Alignment.hs b/src/Alignment.hs
index a26da2f7b..9f0025bac 100644
--- a/src/Alignment.hs
+++ b/src/Alignment.hs
@@ -134,8 +134,7 @@ groupChildrenByLine :: Join These [Range] -> [AlignedDiff leaf] -> [Join These (
 groupChildrenByLine ranges children = go rangeLists children
   where rangeLists = these (flip (,) []) ((,) []) (,) (runJoin ranges)
         go ranges children | (l:ls, r:rs) <- ranges
-                           , ((firstLine:restOfLines):rest) <- children = go ranges (restOfLines:rest)
-                           | ([]:rest) <- children = go ranges rest
+                           , (child:rest) <- children = go ranges rest
                            | otherwise = uncurry (alignWith (fmap (flip (,) []) . Join)) ranges
 
 intersects :: Range -> Range -> Bool