X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeGen.lhs;h=725ba6a32982ebc2011ab515838463ddb20a043d;hp=19db7af16b88b2f31f1e98fea98f0974f36e55eb;hb=63739e3fb4bd70e9c789d4d05fcbc66debd1401f;hpb=176fb356fbbc4cf398fb66440d84a05ad333c881

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index 19db7af..725ba6a 100644
--- a/compiler/ghci/ByteCodeGen.lhs
+++ b/compiler/ghci/ByteCodeGen.lhs
@@ -1102,7 +1102,6 @@ pushAtom d p (AnnLit lit)
 				      pokeByteOff ptr n (fromIntegral (ord '\0') :: Word8)
                                       return ptr
                                    )
-                         other -> panic "ByteCodeGen.pushAtom.pushStr"
              in
                 getMallocvilleAddr `thenBc` \ addr ->
                 -- Get the addr on the stack, untaggedly