Warning police: Removed overlapped pattern warnings

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

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index e5b7026..6536068 100644 (file)
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -839,10 +839,8 @@ hscKcType hsc_env str
   = do { maybe_type <- hscParseType (hsc_dflags hsc_env) str
        ; let icontext = hsc_IC hsc_env
        ; case maybe_type of {
-            Just ty    -> tcRnType hsc_env icontext ty ;
-            Just other -> do { errorMsg (hsc_dflags hsc_env) (text "not an type:" <+> quotes (text str)) ;
-                               return Nothing } ;
-            Nothing    -> return Nothing } }
+            Just ty -> tcRnType hsc_env icontext ty ;
+            Nothing -> return Nothing } }
 #endif
 \end{code}