github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Delegate free rendering to freeSyntaxToSplit.

Browse Source
This commit is contained in:
Rob Rix 2015-12-03 10:02:52 -05:00
parent 676c5c67ab
commit 1c55552a1b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Split.hs
View File

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