Commit e7a80ef9 authored by sof's avatar sof
Browse files

[project @ 1999-03-24 18:19:08 by sof]

tidied up the error handling defs.
parent 1dd8aff2
......@@ -340,8 +340,6 @@ pprQuotedList xs = hsep (punctuate comma (map (quotes . ppr) xs))
\end{code}
%************************************************************************
%* *
\subsection{Printing numbers verbally}
......@@ -386,22 +384,21 @@ speakNTimes t | t == 1 = ptext SLIT("once")
\begin{code}
pprPanic :: String -> SDoc -> a
pprPanic heading pretty_msg = panic (show (doc PprDebug))
where
doc = text heading <+> pretty_msg
pprError :: String -> SDoc -> a
pprError heading pretty_msg = error (heading++ " " ++ (showSDoc pretty_msg))
pprTrace :: String -> SDoc -> a -> a
pprTrace heading pretty_msg = trace (show (doc PprDebug))
where
doc = text heading <+> pretty_msg
pprPanic = pprAndThen panic
pprError = pprAndThen error
pprTrace = pprAndThen trace
pprPanic# heading pretty_msg = panic# (show (doc PprDebug))
where
doc = text heading <+> pretty_msg
pprAndThen :: (String -> a) -> String -> SDoc -> a
pprAndThen cont heading pretty_msg = cont (show (doc PprDebug))
where
doc = text heading <+> pretty_msg
assertPprPanic :: String -> Int -> SDoc -> a
assertPprPanic file line msg
= panic (show (doc PprDebug))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment