From 156b5cf40797352d17a28a7d3ec774ed38657c86 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Wed, 19 Apr 2023 13:16:44 +0000
Subject: [PATCH] setParSpacing for operator-expression ending in par

---
 .../Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs       | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs
index 5f37e48..27f3087 100644
--- a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs
@@ -220,7 +220,7 @@ layoutOpTree allowSinglelinePar = \case
     -> ToBriDocM BriDocNumbered
   coreAlternative hasParen locO locC fixity docL sharedOps sharedOpsFlat lastWrap
     = do
-      let wrapParenIfSl x inner = if x then wrapParenSl inner else inner
+      let wrapParenIfSl x inner = if x then wrapParenSl inner else docSetParSpacing inner
           wrapParenSl inner = docAlt
             [ docSeq
               [ docLit $ Text.pack "("