Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
e7a80ef9
Commit
e7a80ef9
authored
Mar 24, 1999
by
sof
Browse files
[project @ 1999-03-24 18:19:08 by sof]
tidied up the error handling defs.
parent
1dd8aff2
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/utils/Outputable.lhs
View file @
e7a80ef9
...
...
@@ -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
ppr
Trace heading pretty_msg = trace (show (doc PprDebug))
where
doc = text heading <+> pretty_msg
ppr
Panic = 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))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment