From d35de99307fe857d2b46aa91646fce768cb59458 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 4 Apr 2016 18:25:44 -0400 Subject: [PATCH] :fire: some redundant parens. --- test/AlignmentSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/AlignmentSpec.hs b/test/AlignmentSpec.hs index 08308f965..3baed4964 100644 --- a/test/AlignmentSpec.hs +++ b/test/AlignmentSpec.hs @@ -40,7 +40,7 @@ spec = parallel $ do describe "splitAbstractedTerm" $ do prop "preserves line count" $ \ source -> let range = totalRange source in - splitAbstractedTerm (:<) (Identity source) (Identity (Info range mempty)) (Leaf source) `shouldBe` (Identity . lineMap (fmap (((:< Leaf source) . (`Info` mempty) &&& id))) <$> linesInRangeOfSource range source) + splitAbstractedTerm (:<) (Identity source) (Identity (Info range mempty)) (Leaf source) `shouldBe` (Identity . lineMap (fmap ((:< Leaf source) . (`Info` mempty) &&& id)) <$> linesInRangeOfSource range source) let makeTerm = ((Free .) . Annotated) :: Info -> Syntax (Source Char) (SplitDiff (Source Char) Info) -> SplitDiff (Source Char) Info prop "outputs one row for single-line unchanged leaves" $