From 6e76f3e6187a81e07737c50cf764bc34454433c2 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Mon, 21 Dec 2015 13:19:51 -0500
Subject: [PATCH] Define rightLines in terms of unRight.

---
 src/Split.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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