From 545eff9e4f1448191187c795fefc29e272f2f25a Mon Sep 17 00:00:00 2001
From: Sergey Vinokurov <serg.foo@gmail.com>
Date: Fri, 30 Mar 2018 10:52:22 +0100
Subject: [PATCH] Remove redundant parens

---
 src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
index f414b3c..7f0d8e9 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@@ -137,7 +137,7 @@ layoutExpr lexpr@(L _ expr) = do
           , docSetBaseY
           $ docAddBaseY BrIndentRegular
           $ docLines
-          $ (docForceSingleline <$> paramDocs)
+          $ docForceSingleline <$> paramDocs
           ]
         -- foo
         --   x
@@ -243,11 +243,10 @@ layoutExpr lexpr@(L _ expr) = do
           $ docSeq
           [ appSep $ docForceSingleline leftOperandDoc
           , docSeq
-          $ (appListDocs <&> \(od, ed) -> docSeq
+          $ appListDocs <&> \(od, ed) -> docSeq
               [ appSep $ docForceSingleline od
               , appSep $ docForceSingleline ed
               ]
-            )
           , appSep $ docForceSingleline opLastDoc
           , (if allowPar then docForceParSpacing else docForceSingleline)
               expLastDoc
@@ -1056,7 +1055,7 @@ layoutExpr lexpr@(L _ expr) = do
       docLit $ Text.pack "_"
     EAsPat asName asExpr -> do
       docSeq
-        [ docLit $ (lrdrNameToText asName) <> Text.pack "@"
+        [ docLit $ lrdrNameToText asName <> Text.pack "@"
         , layoutExpr asExpr
         ]
     EViewPat{} -> do