From bcc7d6d578419444d5d598bea2f790cf517b9207 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Fri, 18 Dec 2015 13:27:11 -0500
Subject: [PATCH] =?UTF-8?q?Don=E2=80=99t=20elide=20empty=20rows.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/src/Split.hs b/src/Split.hs
index 7d6b2ab5e..f0caf0e4b 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -244,10 +244,6 @@ maybeLast list = listToMaybe $ reverse list
 adjoin2 :: [Row] -> Row -> [Row]
 adjoin2 [] row = [row]
 
-adjoin2 rows (Row EmptyLine EmptyLine) = rows
-
-adjoin2 (Row EmptyLine EmptyLine : rows) row = adjoin2 rows row
-
 adjoin2 rows (Row left' right') | Just _ <- openLine $ leftLines rows, Just _ <- openLine $ rightLines rows = zipWith Row lefts rights
   where lefts = adjoin2Lines (leftLines rows) left'
         rights = adjoin2Lines (rightLines rows) right'