github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +03:00
Code Issues Projects Releases Wiki Activity

Define rightLines in terms of unRight.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 13:19:51 -05:00
parent 71ca4fc147
commit 6e76f3e618
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Split.hs
View File

@ -252,9 +252,7 @@ leftLines :: [Row a] -> [Line a]
leftLines rows = unLeft <$> rows leftLines rows = unLeft <$> rows
rightLines :: [Row a] -> [Line a] rightLines :: [Row a] -> [Line a]
rightLines rows = right <$> rows rightLines rows = unRight <$> rows
where
right (Row _ right) = right
openElement :: HTML -> Maybe HTML openElement :: HTML -> Maybe HTML
openElement Break = Nothing openElement Break = Nothing