Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
2ed69294
Commit
2ed69294
authored
Aug 11, 2006
by
simonpj@microsoft.com
Browse files
Two more error message indendations
parent
db7ce4c9
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/typecheck/TcRnTypes.lhs
View file @
2ed69294
...
...
@@ -798,7 +798,8 @@ data InstOrigin
\begin{code}
pprInstLoc :: InstLoc -> SDoc
pprInstLoc (InstLoc orig locn _)
= hsep [text "arising from", pp_orig orig, text "at", ppr locn]
= sep [text "arising from" <+> pp_orig orig,
text "at" <+> ppr locn]
where
pp_orig (OccurrenceOf name) = hsep [ptext SLIT("use of"), quotes (ppr name)]
pp_orig (IPOccOrigin name) = hsep [ptext SLIT("use of implicit parameter"), quotes (ppr name)]
...
...
compiler/typecheck/TcSimplify.lhs
View file @
2ed69294
...
...
@@ -2451,8 +2451,8 @@ addNoInstanceErrs mb_what givens dicts
ptext SLIT("to the") <+> what] ]
fix2 | null instance_dicts = []
| otherwise = [ ptext SLIT("add an instance declaration for")
<+>
pprDictsTheta instance_dicts ]
| otherwise = [
sep [
ptext SLIT("add an instance declaration for")
,
pprDictsTheta instance_dicts
]
]
instance_dicts = [d | d <- dicts, isClassDict d, not (isTyVarDict d)]
-- Insts for which it is worth suggesting an adding an instance declaration
-- Exclude implicit parameters, and tyvar dicts
...
...
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