From dd4367c6e875729bef76b81a5bb3f11d18efd320 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Mon, 17 Apr 2023 09:06:56 +0000
Subject: [PATCH] Fixup annotation on error-fallback

---
 .../Language/Haskell/Brittany/Internal/StepOrchestrate.hs     | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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