module ErrUtils where data Severity = SevInfo | SevWarning | SevError | SevFatal type Message = Outputable.SDoc mkLocMessage :: SrcLoc.SrcSpan -> Message -> Message