hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Fixup annotation on error-fallback

Lennart Spitzner 2023-04-17 09:06:56 +00:00
parent 73656eeff6
commit 7d4d6e77f7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/library/Language/Haskell/Brittany/Internal/StepOrchestrate.hs
View File

@ -224,7 +224,9 @@ ppToplevelDecl decl immediateAfterComms = do
_ -> layoutDecl decl _ -> layoutDecl decl
(r, errorCount) <- briDocMToPPM (r, errorCount) <- briDocMToPPM
$ docSeq (innerDoc : map commentToDoc immediateAfterComms) $ 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 ppBriDoc bd False
let commCntIn = connectedCommentCount decl let commCntIn = connectedCommentCount decl
commCntOut <- mGet commCntOut <- mGet