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

Document adjoinRowsByR.

Browse Source
This commit is contained in:
Rob Rix 2016-03-07 17:40:51 -05:00
parent 8fc3384668
commit bf3dbfe32d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Row.hs
View File

@ -41,6 +41,7 @@ adjoinRowsBy (Both (_, g)) rows (Row (Both (left', right'))) | Just _ <- openLin
adjoinRowsBy _ rows row = row : rows
-- | Prepend closed lines (as determined by a pair of functions) onto a list of rows.
adjoinRowsByR :: Both (MaybeOpen a) -> Row a -> [Row a] -> [Row a]
adjoinRowsByR _ row [] = [row]