From: sven.panne@aedion.de <unknown>
Date: Fri, 11 Aug 2006 15:13:53 +0000 (+0000)
Subject: Warning police: Removed overlapped pattern warnings
X-Git-Tag: Before_FC_branch_merge~214
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=63739e3fb4bd70e9c789d4d05fcbc66debd1401f

Warning police: Removed overlapped pattern warnings
---

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
diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index e5b7026..6536068 100644
--- 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}