From c8166041ef671156ed2d8a3395181c2f13fb0ca6 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Sun, 28 Feb 2016 22:32:27 -0500 Subject: [PATCH] Remove some more parens. --- src/Alignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index a1e314b7d..29180b9ed 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -94,7 +94,7 @@ splitAnnotatedByLines sources ranges categories syntax = case syntax of (Free (Annotated (Info range _) _)) -> range getRange (Left range) = range - childRows :: (Has f) => ([Row (Either Range (f (SplitDiff leaf Info)))], (Int, Int)) -> f (Diff leaf Info) -> ([Row (Either Range (f (SplitDiff leaf Info)))], (Int, Int)) + childRows :: Has f => ([Row (Either Range (f (SplitDiff leaf Info)))], (Int, Int)) -> f (Diff leaf Info) -> ([Row (Either Range (f (SplitDiff leaf Info)))], (Int, Int)) childRows (rows, previous) child = let (childRows, childRanges) = splitDiffByLines (get child) previous sources in (adjoin $ rows ++ (fmap Left <$> contextRows (makeRanges previous (start <$> childRanges)) sources) ++ (fmap (Right . (<$ child)) <$> childRows), runBoth $ end <$> childRanges)