Mesabloo/diagnose
1
1
Fork 0
mirror of https://github.com/Mesabloo/diagnose.git synced 2024-08-16 23:00:47 +03:00
Code Issues Projects Releases Wiki Activity

Add docs to Warn and Err patterns

Browse Source
This commit is contained in:
Luc Tielen 2022-08-14 15:11:07 +02:00
parent 2ac7dd331b
commit 9e3f65b925
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Error/Diagnose/Report/Internal.hs
View File

@ -75,9 +75,14 @@ data Report msg
[Note msg]
-- ^ A list of notes to add at the end of the report.
pattern Warn, Err :: Maybe msg -> msg -> [(Position, Marker msg)] -> [Note msg] -> Report msg
-- | Pattern synonym for a warning report.
pattern Warn :: Maybe msg -> msg -> [(Position, Marker msg)] -> [Note msg] -> Report msg
pattern Warn errCode msg reports notes = Report False errCode msg reports notes
-- | Pattern synonym for an error report.
pattern Err :: Maybe msg -> msg -> [(Position, Marker msg)] -> [Note msg] -> Report msg
pattern Err errCode msg reports notes = Report True errCode msg reports notes
{-# COMPLETE Warn, Err #-}
instance Semigroup msg => Semigroup (Report msg) where