From 1c55552a1b36f91e8f45e321cd56dfa3bfcea95d Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Thu, 3 Dec 2015 10:02:52 -0500
Subject: [PATCH] Delegate free rendering to freeSyntaxToSplit.

---
 app/Split.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/app/Split.hs b/app/Split.hs
index da94cf0f1..fa79662d0 100644
--- a/app/Split.hs
+++ b/app/Split.hs
@@ -30,8 +30,8 @@ data Row =
   | InsertRow HTML
   | DeleteRow HTML
 
-straightToSplit :: Diff a Info -> String -> String -> [(HTML, HTML)]
-straightToSplit diff before after = []
+straightToSplit :: Diff a Info -> String -> String -> [Row]
+straightToSplit (Free (Annotated (left, right) syntax)) = freeSyntaxToSplit syntax
 
 freeSyntaxToSplit :: Syntax a (Diff a Info) -> String -> String -> [Row]
 freeSyntaxToSplit (Leaf _) before after = []