From 8db4f0f947708422252a35a2c930e4ac301a9c8a Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Thu, 3 Dec 2015 10:02:08 -0500
Subject: [PATCH] Add a Row type.

---
 app/Split.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/app/Split.hs b/app/Split.hs
index 3e09ef253..c58c5c4c7 100644
--- a/app/Split.hs
+++ b/app/Split.hs
@@ -24,6 +24,11 @@ data HTML =
 split :: Diff a Info -> String -> String -> IO ByteString
 split _ _ _ = return mempty
 
+data Row =
+  ContextRow HTML HTML
+  | ReplaceRow HTML HTML
+  | InsertRow HTML
+  | DeleteRow HTML
 
 straightToSplit :: Diff a Info -> String -> String -> [(HTML, HTML)]
 straightToSplit diff before after = []