From 70b66a28aa5ef80bababb1ca239b2c69e1362147 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 27 Nov 2001 10:03:36 +0000
Subject: [PATCH] [project @ 2001-11-27 10:03:36 by simonpj] Behave better in
 decode_escape failure

---
 ghc/compiler/basicTypes/OccName.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index f569a50..faf7aa8 100644
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -587,6 +587,7 @@ decode_escape (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 []	 = pprTrace "decode_escape" (text "empty") ""
 \end{code}
 
 
-- 
1.7.10.4