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) ...@@ -1102,7 +1102,6 @@ pushAtom d p (AnnLit lit)
pokeByteOff ptr n (fromIntegral (ord '\0') :: Word8) pokeByteOff ptr n (fromIntegral (ord '\0') :: Word8)
return ptr return ptr
) )
other -> panic "ByteCodeGen.pushAtom.pushStr"
in in
getMallocvilleAddr `thenBc` \ addr -> getMallocvilleAddr `thenBc` \ addr ->
-- Get the addr on the stack, untaggedly -- Get the addr on the stack, untaggedly
......
...@@ -839,10 +839,8 @@ hscKcType hsc_env str ...@@ -839,10 +839,8 @@ hscKcType hsc_env str
= do { maybe_type <- hscParseType (hsc_dflags hsc_env) str = do { maybe_type <- hscParseType (hsc_dflags hsc_env) str
; let icontext = hsc_IC hsc_env ; let icontext = hsc_IC hsc_env
; case maybe_type of { ; case maybe_type of {
Just ty -> tcRnType hsc_env icontext ty ; Just ty -> tcRnType hsc_env icontext ty ;
Just other -> do { errorMsg (hsc_dflags hsc_env) (text "not an type:" <+> quotes (text str)) ; Nothing -> return Nothing } }
return Nothing } ;
Nothing -> return Nothing } }
#endif #endif
\end{code} \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