X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FOccName.lhs;h=faf7aa8988c94c6dbe4d0c10cf49823a73569fc5;hb=70b66a28aa5ef80bababb1ca239b2c69e1362147;hp=f569a50f42b18b8986a792a859fbef2fb3ceab32;hpb=781ab03649067441ab2681fbb84b0dbd7c80b055;p=ghc-hetmet.git

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}