From 48af1161e748fe604736d9a87f4c19461d821709 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 Mar 2016 14:27:56 -0500 Subject: [PATCH] adjoinRows takes an AlignFunction. --- src/Alignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index c554ec861..874a7fe58 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -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)) -- | 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 align row (nextRow : rows) = align (coalesceLines <$> row <*> nextRow) ++ rows