Linter

quchen · Jan 23, 2020 · 1f89ce8 · 1f89ce8
1 parent 714557d
commit 1f89ce8
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/prettyprinter/src/Data/Text/Prettyprint/Doc/Internal.hs b/prettyprinter/src/Data/Text/Prettyprint/Doc/Internal.hs
@@ -561,8 +561,8 @@ changesOnFlattening = \doc -> case doc of
         (NoChange , Flat b' ) -> Flat (Cat a b')
         (Flat a'  , Flat b' ) -> Flat (Cat a' b')
 
-    Annotated ann x -> Annotated ann <$> (changesOnFlattening x)
-    Nest i x        -> Nest i <$> (changesOnFlattening x)
+    Annotated ann x -> Annotated ann <$> changesOnFlattening x
+    Nest i x        -> Nest i <$> changesOnFlattening x
 
     Column f        -> Flat (Column (flatten . f))
     Nesting f       -> Flat (Nesting (flatten . f))

diff --git a/prettyprinter/test/Testsuite/Main.hs b/prettyprinter/test/Testsuite/Main.hs
@@ -117,12 +117,12 @@ fusionDoesNotChangeRendering depth
 groupLayoutEqualsSimpleGroupLayout :: Property
 groupLayoutEqualsSimpleGroupLayout = forAllShow (arbitrary :: Gen (Doc Int)) (show . diag) (\doc ->
     forAll arbitrary (\layouter ->
-        let grouped = group $ doc
+        let grouped = group doc
             groupedSimple = simpleGroup doc
             groupedLayedOut = layout layouter grouped
             groupedSimpleLayedOut = layout layouter groupedSimple
-        in counterexample ("Grouped: " ++ (show . diag $ grouped))
-            (counterexample ("Grouped (Simple) " ++ (show . diag $ groupedSimple))
+        in counterexample ("Grouped: " ++ (show . diag) (grouped))
+            (counterexample ("Grouped (Simple) " ++ (show . diag) (groupedSimple))
                 (groupedLayedOut === groupedSimpleLayedOut))))
 
 instance Arbitrary ann => Arbitrary (Doc ann) where