From 5563cd4d93d3b5f718399233ad5ddd9e50e75c2a Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Wed, 19 Apr 2023 12:02:07 +0000 Subject: [PATCH] Dont flatten operators without surrounding parens --- .../Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs index 0d2b994..5f37e48 100644 --- a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs +++ b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs @@ -297,7 +297,7 @@ layoutOpTree allowSinglelinePar = \case $ docForceZeroAdd $ wrapParenMl (docSetBaseY docL) - (sharedOpsFlat <&> \(od, ed) -> + (sharedOps <&> \(od, ed) -> docCols ColOpPrefix [appSep od, docSetBaseY ed] ) -- > one @@ -308,6 +308,6 @@ layoutOpTree allowSinglelinePar = \case hasParen -- ((if not hasParen then docAddBaseY BrIndentRegular else id) docL) (if hasParen then docSetBaseY docL else docL) - (sharedOpsFlat <&> \(od, ed) -> + ((if hasParen then sharedOps else sharedOpsFlat) <&> \(od, ed) -> docCols ColOpPrefix [appSep od, docSetBaseY ed] )