1 2 3 4 5 6 7 8 9 10 11
module ErrUtils where data Severity = SevInfo | SevWarning | SevError | SevFatal type Message = Outputable.SDoc mkLocMessage :: SrcLoc.SrcSpan -> Message -> Message