Mesabloo/diagnose
1
1
Fork 0
mirror of https://github.com/Mesabloo/diagnose.git synced 2024-11-22 01:32:56 +03:00
Code Issues Projects Releases Wiki Activity

remove empty expected messages

Browse Source
This commit is contained in:
Mesabloo 2022-04-23 05:11:10 +02:00
parent 488c3a6a4d
commit baf3c56ff8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Error/Diagnose/Compat/Parsec.hs
View File

@ -70,7 +70,7 @@ diagnosticFromParseError isError code msg (fromMaybe [] -> defaultHints) error =
]
<> [ (source, marker) | msg <- messages, let marker = This $ fromString msg
]
<> [(source, Where $ fromString $ "expecting any of " <> intercalate ", " expectedList)]
<> [(source, Where $ fromString $ "expecting any of " <> intercalate ", " (filter (not . null) expectedList))]
-- | Generates an error diagnostic from a 'PE.ParseError'.
errorDiagnosticFromParseError ::