Add some commented-out tracing in SpecConstr
[ghc.git] / compiler / main / ErrUtils.hs-boot
1 module ErrUtils where
2
3 import Outputable (SDoc, PrintUnqualified )
4 import SrcLoc (SrcSpan)
5 import Json
6 import {-# SOURCE #-} DynFlags ( DynFlags, DumpFlag )
7
8 data Severity
9   = SevOutput
10   | SevFatal
11   | SevInteractive
12   | SevDump
13   | SevInfo
14   | SevWarning
15   | SevError
16
17
18 type MsgDoc = SDoc
19
20 mkLocMessage :: Severity -> SrcSpan -> MsgDoc -> MsgDoc
21 mkLocMessageAnn :: Maybe String -> Severity -> SrcSpan -> MsgDoc -> MsgDoc
22 getCaretDiagnostic :: Severity -> SrcSpan -> IO MsgDoc
23 dumpSDoc :: DynFlags -> PrintUnqualified -> DumpFlag -> String -> SDoc -> IO ()
24
25 instance ToJson Severity