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

Do not count warnings for considering exactprint fallback

ghc92
Lennart Spitzner 2023-04-17 09:12:54 +00:00
parent dd4367c6e8
commit 412c5460aa
1 changed files with 24 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
source/library/Language/Haskell/Brittany/Internal/Types.hs
View File

@ -172,8 +172,7 @@ briDocMToPPM :: ToBriDocM a -> PPMLocal (a, Int)
briDocMToPPM m = do briDocMToPPM m = do
readers <- MultiRWSS.mGetRawR readers <- MultiRWSS.mGetRawR
initCount <- MultiRWSS.mGet @CommentCounter initCount <- MultiRWSS.mGet @CommentCounter
let let (((x, errs), debugs), commentCount) =
(((x, errs), debugs), commentCount) =
runIdentity runIdentity
$ MultiRWSS.runMultiRWSTNil $ MultiRWSS.runMultiRWSTNil
$ MultiRWSS.withMultiStateAS initCount $ MultiRWSS.withMultiStateAS initCount
@ -185,7 +184,20 @@ briDocMToPPM m = do
mTell debugs mTell debugs
mTell errs mTell errs
mSet commentCount mSet commentCount
pure (x, length errs) pure
( x
, sum
[ case e of
ErrorInput{} -> 1
ErrorUnusedComment{} -> 1
ErrorUnusedComments{} -> 1
ErrorMacroConfig{} -> 0
LayoutWarning{} -> 0
ErrorUnknownNode{} -> 1
ErrorOutputCheck{} -> 0
| e <- errs
]
)