Don't indent closing paren where possible

Author: brandonchinn178

CHANGELOG.md

@@ -1,3 +1,7 @@
+## Unreleased
+
+* Don't indent closing parentheses for tuples where possible
+
 ## Ormolu 0.7.4.0
 
 * Don't error when the `JavaScriptFFI` language pragma is present. [Issue

data/examples/declaration/value/function/arrow/proc-applications-out.hs

@@ -9,7 +9,7 @@ bar f x =
     ( y,
       z,
       w
-      )
+    )
   ->
     f -- The value
       -<

data/examples/declaration/value/function/arrow/proc-do-complex-out.hs

@@ -9,7 +9,7 @@ foo
       ( (a, b),
         (c, d),
         (e, f)
-        )
+      )
     -> do
       -- Begin do
       (x, y) <- -- GHC parser fails if layed out over multiple lines

src/Ormolu/Printer/Meat/Declaration/Value.hs

@@ -1057,11 +1057,19 @@ p_pat style = \case
   ListPat _ pats ->
     brackets S $ sep commaDel (located' p_pat') pats
   TuplePat _ pats boxing -> do
+    let parenStyle =
+          case style of
+            -- don't indent closing paren if possible, because it's
+            -- prettier. but closing paren must be indented in case
+            -- statements or it's a syntax error.
+            Case -> S
+            LambdaCase -> S
+            _ -> N
     let parens' =
           case boxing of
-            Boxed -> parens S
-            Unboxed -> parensHash S
-    parens' $ sep commaDel (sitcc . located' p_pat') pats
+            Boxed -> parens
+            Unboxed -> parensHash
+    parens' parenStyle $ sep commaDel (sitcc . located' p_pat') pats
   SumPat _ pat tag arity ->
     p_unboxedSum S tag arity (located pat p_pat')
   ConPat _ pat details ->