Fixup annotation on error-fallback

2023-04-17 09:06:56 +00:00 · 2023-04-17 09:06:56 +00:00 · dd4367c6e8
parent 676695a609
commit dd4367c6e8
1 changed files with 3 additions and 1 deletions
--- 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