From 4389a08a95eb4f640b4bb398e8852b40cf859a4d Mon Sep 17 00:00:00 2001 From: joshvera Date: Fri, 4 Dec 2015 11:26:03 -0500 Subject: [PATCH] spaces --- src/Split.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Split.hs b/src/Split.hs index 5905d0c46..3a4c0b25c 100644 --- a/src/Split.hs +++ b/src/Split.hs @@ -52,8 +52,8 @@ annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCatego appendRemainder (rows, previousIndices) = adjoinRows rows $ contextRows (ends ranges) previousIndices sources sumRows (rows, previousIndices) child = (rows `adjoinRows` (contextRows (starts childRanges) previousIndices sources) `adjoinRows` childRows , ends childRanges) - where - (childRows, childRanges) = diffToRows child before after + where + (childRows, childRanges) = diffToRows child before after contextRows :: (Int, Int) -> (Int, Int) -> (String, String) -> [Row] contextRows childIndices previousIndices sources = zipWithMaybe rowFromMaybeRows leftElements rightElements