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:
a7cad16
)
[project @ 2001-04-14 22:32:14 by qrczak]
author
qrczak
<unknown>
Sat, 14 Apr 2001 22:32:14 +0000
(22:32 +0000)
committer
qrczak
<unknown>
Sat, 14 Apr 2001 22:32:14 +0000
(22:32 +0000)
{-# INLINE instance #-} support.
ghc/compiler/rename/RnBinds.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/rename/RnBinds.lhs
b/ghc/compiler/rename/RnBinds.lhs
index
8a2932f
..
32e37cd
100644
(file)
--- a/
ghc/compiler/rename/RnBinds.lhs
+++ b/
ghc/compiler/rename/RnBinds.lhs
@@
-524,6
+524,9
@@
renameSig (SpecInstSig ty src_loc)
rnHsType (text "A SPECIALISE instance pragma") ty `thenRn` \ new_ty ->
returnRn (SpecInstSig new_ty src_loc)
+renameSig (InlineInstSig p src_loc)
+ = returnRn (InlineInstSig p src_loc)
+
renameSig (SpecSig v ty src_loc)
= pushSrcLocRn src_loc $
lookupSigOccRn v `thenRn` \ new_v ->