Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
63739e3f
Commit
63739e3f
authored
Aug 11, 2006
by
sven.panne@aedion.de
Browse files
Warning police: Removed overlapped pattern warnings
parent
176fb356
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/ghci/ByteCodeGen.lhs
View file @
63739e3f
...
...
@@ -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
...
...
compiler/main/HscMain.lhs
View file @
63739e3f
...
...
@@ -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}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment