Commit 70b66a28 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-11-27 10:03:36 by simonpj]

Behave better in decode_escape failure
parent 781ab036
...@@ -587,6 +587,7 @@ decode_escape (c : rest) ...@@ -587,6 +587,7 @@ decode_escape (c : rest)
go n other = pprPanic "decode_escape" (ppr n <+> text (c:rest)) go n other = pprPanic "decode_escape" (ppr n <+> text (c:rest))
decode_escape (c : rest) = pprTrace "decode_escape" (char c) (decode rest) decode_escape (c : rest) = pprTrace "decode_escape" (char c) (decode rest)
decode_escape [] = pprTrace "decode_escape" (text "empty") ""
\end{code} \end{code}
......
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