github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 16:33:03 +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 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 :: Both (MaybeOpen a) -> Row a -> [Row a] -> [Row a]
adjoinRowsByR _ row [] = [row] adjoinRowsByR _ row [] = [row]