From: sof <unknown>
Date: Mon, 26 May 1997 03:30:57 +0000 (+0000)
Subject: [project @ 1997-05-26 03:30:57 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~523
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=da423ca2f62cc42f925cce0c489dd348d94c7d2e;p=ghc-hetmet.git

[project @ 1997-05-26 03:30:57 by sof]
Unfold lexeme now takes Bool indicating whether INLINE pragma annotation was used
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 2e58b1f..ce0739f 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -12,6 +12,7 @@ import HsDecls		( HsIdInfo(..) )
 import HsTypes		( mkHsForAllTy )
 import HsCore
 import Literal
+import BasicTypes	( Fixity(..), FixityDirection(..), NewOrData(..), Version(..) )
 import HsPragmas	( noGenPragmas, noDataPragmas, noClassPragmas, noClassOpPragmas, noInstancePragmas )
 import IdInfo		( exactArity, mkStrictnessInfo, mkBottomStrictnessInfo,
 			  ArgUsageInfo, FBTypeInfo, ArityInfo, StrictnessInfo
@@ -92,7 +93,7 @@ parseIface ls = parseIToks (lexIface ls)
 	TYPE_PART       { ITtysig $$ }
 	ARITY_PART	{ ITarity }
 	STRICT_PART	{ ITstrict }
-	UNFOLD_PART	{ ITunfold }
+	UNFOLD_PART	{ ITunfold $$ }
 	DEMAND		{ ITdemand $$ }
 	BOTTOM		{ ITbottom }
 	LAM		{ ITlam }