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
......
......@@ -840,8 +840,6 @@ hscKcType 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 } }
#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