From: qrczak <unknown>
Date: Sat, 14 Apr 2001 22:32:14 +0000 (+0000)
Subject: [project @ 2001-04-14 22:32:14 by qrczak]
X-Git-Tag: Approximately_9120_patches~2148
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1b9312bd044db58b430d3612c1a67264f3d23d36;p=ghc-hetmet.git

[project @ 2001-04-14 22:32:14 by qrczak]
{-# INLINE instance #-} support.
---

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 ->