From edf0383048ba29615d48a41a7c60f1cb8ef5608f Mon Sep 17 00:00:00 2001
From: sof <unknown>
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 ec185fef16cf..b738395b6ee6 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
--
GitLab