From c2224a0abd6d8e6b27df4347ed29373df2aeeb1b Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 4 Jul 2006 13:54:44 +0000 Subject: [PATCH] add default cases --- compiler/main/HscTypes.lhs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs index 0ac5790..e67de3b 100644 --- a/compiler/main/HscTypes.lhs +++ b/compiler/main/HscTypes.lhs @@ -1077,8 +1077,10 @@ isInterpretable = not . isObject nameOfObject (DotO fn) = fn nameOfObject (DotA fn) = fn nameOfObject (DotDLL fn) = fn +nameOfObject other = pprPanic "nameOfObject" (ppr other) byteCodeOfObject (BCOs bc) = bc +byteCodeOfObject other = pprPanic "byteCodeOfObject" (ppr other) \end{code} -- 1.7.10.4