projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
777b8c4
)
Comment only
author
Simon Peyton Jones
<simonpj@microsoft.com>
Mon, 13 Jun 2011 14:04:17 +0000
(15:04 +0100)
committer
Simon Peyton Jones
<simonpj@microsoft.com>
Mon, 13 Jun 2011 14:04:17 +0000
(15:04 +0100)
compiler/basicTypes/MkId.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/MkId.lhs
b/compiler/basicTypes/MkId.lhs
index
c691f62
..
b72c4be
100644
(file)
--- a/
compiler/basicTypes/MkId.lhs
+++ b/
compiler/basicTypes/MkId.lhs
@@
-442,7
+442,8
@@
mkDictSelId no_unf name clas
-- for the ClassOp
info | new_tycon = base_info `setInlinePragInfo` alwaysInlinePragma
- -- See Note [Single-method classes] for why alwaysInlinePragma
+ -- See Note [Single-method classes] in TcInstDcls
+ -- for why alwaysInlinePragma
| otherwise = base_info `setSpecInfo` mkSpecInfo [rule]
`setInlinePragInfo` neverInlinePragma
-- Add a magic BuiltinRule, and never inline it