Commit 1b9312bd authored by qrczak's avatar qrczak
Browse files

[project @ 2001-04-14 22:32:14 by qrczak]

{-# INLINE instance #-} support.
parent a7cad169
......@@ -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 ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment