From 9ef0242ac824a1d3bfa9f6654f627061f4749775 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 21 Dec 2015 10:04:02 -0500 Subject: [PATCH] Define annotatedToRows in terms of adjoin2By. --- src/Split.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Split.hs b/src/Split.hs index 17a43ddaf..0ecfe564e 100644 --- a/src/Split.hs +++ b/src/Split.hs @@ -201,7 +201,7 @@ annotatedToRows (Annotated (Info left leftCategories, Info right rightCategories ranges = (left, right) sources = (before, after) childRows = appendRemainder . foldl sumRows ([], starts ranges) - appendRemainder (rows, previousIndices) = reverse . foldl adjoin2 [] $ rows ++ (contextRows (ends ranges) previousIndices sources) + appendRemainder (rows, previousIndices) = reverse . foldl (adjoin2By openElement) [] $ rows ++ (contextRows (ends ranges) previousIndices sources) sumRows (rows, previousIndices) child = (allRows, ends childRanges) where separatorRows = contextRows (starts childRanges) previousIndices sources