Commit 63739e3f authored by sven.panne@aedion.de's avatar sven.panne@aedion.de
Browse files

Warning police: Removed overlapped pattern warnings

parent 176fb356
......@@ -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
......
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment