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

Row’s constructor is curried.

Browse Source
This commit is contained in:
Rob Rix 2015-12-03 10:06:39 -05:00
parent bc57f7f871
commit 485959b135
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Split.hs
View File

@ -24,7 +24,7 @@ data HTML =
split :: Diff a Info -> String -> String -> IO ByteString split :: Diff a Info -> String -> String -> IO ByteString
split _ _ _ = return mempty split _ _ _ = return mempty
data Row = Row (Maybe HTML, Maybe HTML) data Row = Row (Maybe HTML) (Maybe HTML)
straightToSplit :: Diff a Info -> String -> String -> [Row] straightToSplit :: Diff a Info -> String -> String -> [Row]
straightToSplit (Free (Annotated (left, right) syntax)) = freeSyntaxToSplit (left, right) syntax straightToSplit (Free (Annotated (left, right) syntax)) = freeSyntaxToSplit (left, right) syntax