From fe5b6d20117bd997fc25337cefab377c9e422e7b Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Fri, 4 Dec 2015 10:40:11 -0500
Subject: [PATCH] =?UTF-8?q?We=20don=E2=80=99t=20need=20this=20annotation.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/src/Split.hs b/src/Split.hs
index 141879d9d..e13e8f5a9 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -51,7 +51,6 @@ annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCatego
     sumRows (rows, previousLeft, previousRight) child = (rows `adjoinRows` contextRows `adjoinRows` childRows, end leftChildRange, end rightChildRange)
         where
           (childRows, leftChildRange, rightChildRange) = diffToRows child before after
-          contextRows :: [Row]
           contextRows = uncurry rowFromMaybeRows <$> zipMaybe leftElements rightElements
           leftElements = Text <$> lines (substring (Range previousLeft $ start left) before)
           rightElements = Text <$> lines (substring (Range previousRight $ start right) after)