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 "("