diff --git a/source/library/Language/Haskell/Brittany/Internal/StepOrchestrate.hs b/source/library/Language/Haskell/Brittany/Internal/StepOrchestrate.hs
index 0e09c6e..0e7b471 100644
--- a/source/library/Language/Haskell/Brittany/Internal/StepOrchestrate.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/StepOrchestrate.hs
@@ -224,7 +224,9 @@ ppToplevelDecl decl immediateAfterComms = do
             _ -> layoutDecl decl
       (r, errorCount) <- briDocMToPPM
         $ docSeq (innerDoc : map commentToDoc immediateAfterComms)
-      if errorCount == 0 then pure (r, 0) else briDocMToPPM $ briDocByExact decl
+      if errorCount == 0
+        then pure (r, 0)
+        else briDocMToPPM $ briDocByExactNoComment decl
   ppBriDoc bd False
   let commCntIn = connectedCommentCount decl
   commCntOut <- mGet