Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
a13551ce
Commit
a13551ce
authored
Jul 03, 2007
by
simonpj@microsoft.com
Browse files
Improve formatting of errors, and fix a typo
parent
f47653a9
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/typecheck/TcType.lhs
View file @
a13551ce
...
...
@@ -451,9 +451,9 @@ pprSkolTvBinding tv
ppr_skol UnkSkol = empty -- Unhelpful; omit
ppr_skol RuntimeUnkSkol = ptext SLIT("is an unknown runtime type")
ppr_skol info = ptext SLIT("is a rigid type variable bound by")
<+>
sep [pprSkolInfo info,
nest 2 (ptext SLIT("at") <+> ppr (getSrcLoc tv))]
ppr_skol info =
sep [
ptext SLIT("is a rigid type variable bound by")
,
sep [pprSkolInfo info,
nest 2 (ptext SLIT("at") <+> ppr (getSrcLoc tv))]
]
pprSkolInfo :: SkolemInfo -> SDoc
pprSkolInfo (SigSkol ctxt) = pprUserTypeCtxt ctxt
...
...
compiler/typecheck/TcUnify.lhs
View file @
a13551ce
...
...
@@ -1601,7 +1601,7 @@ ppr_ty :: TidyEnv -> TcType -> TcType -> TcM (TidyEnv, SDoc, SDoc)
ppr_ty env ty other_ty
= do { ty' <- zonkTcType ty
; let (env1, tidy_ty) = tidyOpenType env ty'
; (env2, extra) <- ppr_extra env1 ty
'
other_ty
; (env2, extra) <- ppr_extra env1 t
idy_t
y other_ty
; return (env2, quotes (ppr tidy_ty), extra) }
-- (ppr_extra env ty other_ty) shows extra info about '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