From db23e4792d7f3f3c8d49686350f3ef4efa38f979 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 10 Dec 2015 15:50:35 -0500 Subject: [PATCH] Compose. --- src/Split.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Split.hs b/src/Split.hs index a5bf29054..01d01aa4e 100644 --- a/src/Split.hs +++ b/src/Split.hs @@ -158,7 +158,7 @@ annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCatego ranges = (left, right) rows = appendRemainder $ foldl sumRows ([], starts ranges) i sources = (before, after) - appendRemainder (rows, previousIndices) = reverse $ foldl adjoin2 [] $ rows ++ (contextRows (ends ranges) previousIndices sources) + appendRemainder (rows, previousIndices) = reverse . foldl adjoin2 [] $ rows ++ (contextRows (ends ranges) previousIndices sources) sumRows (rows, previousIndices) child = (allRows, ends childRanges) where separatorRows = contextRows (starts childRanges) previousIndices sources