github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-25 02:58:36 +03:00
Code Issues Projects Releases Wiki Activity

adjoinRows takes an AlignFunction.

Browse Source
This commit is contained in:
Rob Rix 2016-03-11 14:27:56 -05:00
parent 842af743e7
commit 48af1161e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Alignment.hs
View File

@ -114,7 +114,7 @@ type Row a = Both (Line a)
type AlignFunction f = forall b list. (Align list, Applicative list) => f (list (Line b)) -> list (f (Line b)) type AlignFunction f = forall b list. (Align list, Applicative list) => f (list (Line b)) -> list (f (Line b))
-- | Merge open lines and prepend closed lines (as determined by a pair of functions) onto a list of rows. -- | Merge open lines and prepend closed lines (as determined by a pair of functions) onto a list of rows.
adjoinRows :: Applicative f => (f [Line a] -> [f (Line a)]) -> f (Line a) -> [f (Line a)] -> [f (Line a)] adjoinRows :: Applicative f => AlignFunction f -> f (Line a) -> [f (Line a)] -> [f (Line a)]
adjoinRows _ row [] = [ row ] adjoinRows _ row [] = [ row ]
adjoinRows align row (nextRow : rows) = align (coalesceLines <$> row <*> nextRow) ++ rows adjoinRows align row (nextRow : rows) = align (coalesceLines <$> row <*> nextRow) ++ rows