From edf0383048ba29615d48a41a7c60f1cb8ef5608f Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 26 May 1997 04:41:11 +0000 Subject: [PATCH] [project @ 1997-05-26 04:41:11 by sof] INLINE pragma support; updated imports --- ghc/compiler/hsSyn/HsDecls.lhs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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 -- 1.7.10.4