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

Pass the annotations to freeSyntaxToSplit.

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

6
app/Split.hs
View File

@ -31,10 +31,10 @@ data Row =
| DeleteRow HTML
straightToSplit :: Diff a Info -> String -> String -> [Row]
straightToSplit (Free (Annotated (left, right) syntax)) = freeSyntaxToSplit syntax
straightToSplit (Free (Annotated (left, right) syntax)) = freeSyntaxToSplit (left, right) syntax
freeSyntaxToSplit :: Syntax a (Diff a Info) -> String -> String -> [Row]
freeSyntaxToSplit (Leaf _) before after = []
freeSyntaxToSplit :: (Info, Info) -> Syntax a (Diff a Info) -> String -> String -> [Row]
freeSyntaxToSplit (left, right) (Leaf _) before after = []
splitDiff :: Diff a Info -> String -> String -> Patch (HTML, Range)
splitDiff diff before after = iter toElements $ splitPatch before after <$> diff