From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 4 Jul 2006 13:54:44 +0000 (+0000)
Subject: add default cases
X-Git-Tag: Before_FC_branch_merge~314
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c2224a0abd6d8e6b27df4347ed29373df2aeeb1b;p=ghc-hetmet.git

add default cases
---

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}