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

Rename straightToSplit to diffToRows.

Browse Source
This commit is contained in:
Rob Rix 2015-12-03 10:07:26 -05:00
parent 485959b135
commit 6a05ca0b25
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

@ -26,8 +26,8 @@ split _ _ _ = return mempty
data Row = Row (Maybe HTML) (Maybe HTML) data Row = Row (Maybe HTML) (Maybe HTML)
straightToSplit :: Diff a Info -> String -> String -> [Row] diffToRows :: Diff a Info -> String -> String -> [Row]
straightToSplit (Free (Annotated (left, right) syntax)) = freeSyntaxToSplit (left, right) syntax diffToRows (Free (Annotated (left, right) syntax)) = freeSyntaxToSplit (left, right) syntax
freeSyntaxToSplit :: (Info, Info) -> Syntax a (Diff a Info) -> String -> String -> [Row] freeSyntaxToSplit :: (Info, Info) -> Syntax a (Diff a Info) -> String -> String -> [Row]
freeSyntaxToSplit (left, right) (Leaf _) before after = [] freeSyntaxToSplit (left, right) (Leaf _) before after = []