diff --git a/src/Split.hs b/src/Split.hs
index 0ba59d5ca..651527c3b 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -252,9 +252,7 @@ leftLines :: [Row a] -> [Line a]
 leftLines rows = unLeft <$> rows
 
 rightLines :: [Row a] -> [Line a]
-rightLines rows = right <$> rows
-  where
-    right (Row _ right) = right
+rightLines rows = unRight <$> rows
 
 openElement :: HTML -> Maybe HTML
 openElement Break = Nothing