accounting wibble: we were missing an alloc_blocks++ in allocateLocal()
[ghc-hetmet.git] / compiler / main / ErrUtils.hi-boot-6
1 module ErrUtils where
2
3 data Severity
4   = SevInfo
5   | SevWarning
6   | SevError
7   | SevFatal
8
9 type Message = Outputable.SDoc
10
11 mkLocMessage :: SrcLoc.SrcSpan -> Message -> Message