From 4b487669a968784d7de737f9fd0e0246a90bec0a Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Mon, 21 Dec 2015 10:04:51 -0500
Subject: [PATCH] Remove adjoin2.

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

diff --git a/src/Split.hs b/src/Split.hs
index 0ecfe564e..26a023348 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -236,9 +236,6 @@ rowFromMaybeRows a b = Row (maybe EmptyLine (Line False . (:[])) a) (maybe Empty
 maybeLast :: [a] -> Maybe a
 maybeLast list = listToMaybe $ reverse list
 
-adjoin2 :: [Row HTML] -> Row HTML -> [Row HTML]
-adjoin2 = adjoin2By openElement
-
 adjoin2By :: (a -> Maybe a) -> [Row a] -> Row a -> [Row a]
 adjoin2By _ [] row = [row]