Commit edf03830 authored by sof's avatar sof
Browse files

[project @ 1997-05-26 04:41:11 by sof]

INLINE pragma support; updated imports
parent 369347a5
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment