Warning police: Removed overlapped pattern warnings

[ghc-hetmet.git] / compiler / ghci / ByteCodeGen.lhs

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index 19db7af..725ba6a 100644 (file)
--- 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