1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00

🔥 some redundant parens.

This commit is contained in:
Rob Rix 2016-04-04 18:25:44 -04:00
parent 50d18f4472
commit d35de99307

View File

@ -40,7 +40,7 @@ spec = parallel $ do
describe "splitAbstractedTerm" $ do describe "splitAbstractedTerm" $ do
prop "preserves line count" $ prop "preserves line count" $
\ source -> let range = totalRange source in \ 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 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" $ prop "outputs one row for single-line unchanged leaves" $