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
5e6e6b8b
Commit
5e6e6b8b
authored
Aug 11, 2006
by
simonpj@microsoft.com
Browse files
Improve error message layouts
parent
0d7cc019
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/typecheck/TcBinds.lhs
View file @
5e6e6b8b
...
...
@@ -499,7 +499,8 @@ checkStrictBinds top_lvl rec_group mbind mono_tys infos
check_sig other = return ()
strictBindErr flavour unlifted mbind
= hang (text flavour <+> msg <+> ptext SLIT("aren't allowed:")) 4 (ppr mbind)
= hang (text flavour <+> msg <+> ptext SLIT("aren't allowed:"))
4 (pprLHsBinds mbind)
where
msg | unlifted = ptext SLIT("bindings for unlifted types")
| otherwise = ptext SLIT("bang-pattern bindings")
...
...
compiler/typecheck/TcUnify.lhs
View file @
5e6e6b8b
...
...
@@ -1515,7 +1515,7 @@ notMonoType ty
= do { ty' <- zonkTcType ty
; env0 <- tcInitTidyEnv
; let (env1, tidy_ty) = tidyOpenType env0 ty'
msg = ptext SLIT("Cannot match a monotype with") <+> ppr tidy_ty
msg = ptext SLIT("Cannot match a monotype with") <+>
quotes (
ppr tidy_ty
)
; failWithTcM (env1, msg) }
occurCheck tyvar ty
...
...
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