From 1b9312bd044db58b430d3612c1a67264f3d23d36 Mon Sep 17 00:00:00 2001 From: qrczak Date: Sat, 14 Apr 2001 22:32:14 +0000 Subject: [PATCH] [project @ 2001-04-14 22:32:14 by qrczak] {-# INLINE instance #-} support. --- ghc/compiler/rename/RnBinds.lhs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs index 8a2932f..32e37cd 100644 --- 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 -> -- 1.7.10.4