From f97b2aa8b412fb7fea46de4e4b5bd54c31c2ad6c Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 3 Dec 2015 09:10:00 -0500 Subject: [PATCH] Stub in a function rendering split diffs directly. --- app/Split.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/app/Split.hs b/app/Split.hs index 3a15a2f94..3e09ef253 100644 --- a/app/Split.hs +++ b/app/Split.hs @@ -24,6 +24,10 @@ data HTML = split :: Diff a Info -> String -> String -> IO ByteString split _ _ _ = return mempty + +straightToSplit :: Diff a Info -> String -> String -> [(HTML, HTML)] +straightToSplit diff before after = [] + splitDiff :: Diff a Info -> String -> String -> Patch (HTML, Range) splitDiff diff before after = iter toElements $ splitPatch before after <$> diff where