github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Stub in a function rendering split diffs directly.

Browse Source
This commit is contained in:
Rob Rix 2015-12-03 09:10:00 -05:00
parent 4853095dbd
commit f97b2aa8b4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Split.hs
View File

@ -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