2 % (c) The AQUA Project, Glasgow University, 1994-1995
4 \section[ErrsUtils]{Utilities for error reporting}
7 #include "HsVersions.h"
10 Error(..), Warning(..), Message(..),
19 import Bag ( bagToList )
20 import PprStyle ( PprStyle(..) )
22 import SrcLoc ( mkUnknownSrcLoc, SrcLoc{-instance-} )
26 type Error = PprStyle -> Pretty
27 type Warning = PprStyle -> Pretty
28 type Message = PprStyle -> Pretty
30 addErrLoc :: SrcLoc -> String -> Error -> Error
31 addErrLoc locn title rest_of_err_msg sty
32 = ppHang (ppBesides [ppr PprForUser locn,
33 if null title then ppNil else ppStr (": " ++ title),
35 4 (rest_of_err_msg sty)
37 addShortErrLocLine :: SrcLoc -> Error -> Error
38 addShortErrLocLine locn rest_of_err_msg sty
39 = ppHang (ppBeside (ppr PprForUser locn) (ppChar ':'))
40 4 (rest_of_err_msg sty)
42 dontAddErrLoc :: String -> Error -> Error
43 dontAddErrLoc title rest_of_err_msg sty
44 = ppHang (ppBesides [ppStr title, ppChar ':'])
45 4 (rest_of_err_msg sty)
47 pprBagOfErrors :: PprStyle -> Bag Error -> Pretty
48 pprBagOfErrors sty bag_of_errors
49 = let pretties = map ( \ e -> e sty ) (bagToList bag_of_errors) in
50 ppAboves (map (\ p -> ppAbove ppSP p) pretties)