github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Add a Row type.

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

5
app/Split.hs
View File

@ -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 = []