From 63739e3fb4bd70e9c789d4d05fcbc66debd1401f Mon Sep 17 00:00:00 2001 From: "sven.panne@aedion.de" Date: Fri, 11 Aug 2006 15:13:53 +0000 Subject: [PATCH] Warning police: Removed overlapped pattern warnings --- compiler/ghci/ByteCodeGen.lhs | 1 - compiler/main/HscMain.lhs | 6 ++---- 2 files changed, 2 insertions(+), 5 deletions(-) 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} -- 1.7.10.4