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

Generalize AlignFunction from lists to arbitrary Align Applicative functors.

Browse Source
This commit is contained in:
Rob Rix 2016-03-11 11:27:01 -05:00
parent b3c65733ba
commit 9a65904fc5
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

@ -101,7 +101,7 @@ openRange source range = (at source <$> maybeLastIndex range) /= Just '\n'
-- | A row in a split diff, composed of a before line and an after line.
type Row a = Both (Line a)
type AlignFunction f = forall b. f [Line b] -> [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.
adjoinRows :: Applicative f => (f [Line a] -> [f (Line a)]) -> f (Line a) -> [f (Line a)] -> [f (Line a)]