setParSpacing for operator-expression ending in par

2023-04-19 13:16:44 +00:00 · 2023-04-19 13:16:44 +00:00 · 156b5cf407
parent d29303d4cd
commit 156b5cf407
1 changed files with 1 additions and 1 deletions
--- 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 "("