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

[project @ 1997-05-26 04:41:11 by sof]
INLINE pragma support; updated imports
---

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index ec185fe..b738395 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -22,17 +22,15 @@ import HsTypes
 import IdInfo
 import SpecEnv		( SpecEnv )
 import HsCore		( UfExpr )
-import HsBasic		( Fixity )
-import TyCon		( NewOrData(..) )	-- Just a boolean flag really
+import BasicTypes	( Fixity, NewOrData(..) )
 
 -- others:
 import Name		--( getOccName, OccName )
 import Outputable	( interppSP, interpp'SP,
-			  Outputable(..){-instance * []-}
+			  PprStyle(..), Outputable(..){-instance * []-}
 			)
 import Pretty
 import SrcLoc		( SrcLoc )
-import PprStyle		( PprStyle(..) )
 import Util
 \end{code}
 
@@ -381,7 +379,7 @@ instance (NamedThing name, Outputable name) => Outputable (IfaceSig name) where
 data HsIdInfo name
   = HsArity		ArityInfo
   | HsStrictness	(StrictnessInfo name)
-  | HsUnfold		(UfExpr name)
+  | HsUnfold		Bool (UfExpr name)	-- True <=> INLINE pragma
   | HsUpdate		UpdateInfo
   | HsDeforest		DeforestInfo
   | HsArgUsage		ArgUsageInfo