github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00
Code Issues Projects Releases Wiki Activity

Simplify the base case.

Browse Source
This commit is contained in:
Rob Rix 2016-03-08 21:57:29 -05:00
parent 761e5abe93
commit 57b2d1f645
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Row.hs
View File

@ -30,6 +30,5 @@ coalesceLinesBy _ line nextLine = [line, nextLine]
-- | Merge open lines and prepend closed lines (as determined by a pair of functions) onto a list of rows.
adjoinRowsBy :: Both (MaybeOpen a) -> Row a -> [Row a] -> [Row a]
adjoinRowsBy _ row [] = [ row ]
adjoinRowsBy f row (nextRow : rows) = zipWithDefaults makeRow (pure EmptyLine) (coalesceLinesBy <$> f <*> unRow row <*> unRow nextRow) ++ rows
adjoinRowsBy _ row rows = row : rows