[project @ 1999-04-19 16:30:51 by simonm]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsDecls.lhs

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index adefae8..5874f69 100644 (file)
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -448,17 +448,16 @@ instance (Outputable name) => Outputable (IfaceSig name) where
 
 data HsIdInfo name
   = HsArity            ArityInfo
-  | HsStrictness       (HsStrictnessInfo name)
+  | HsStrictness       HsStrictnessInfo
   | HsUnfold           InlinePragInfo (Maybe (UfExpr name))
   | HsUpdate           UpdateInfo
   | HsSpecialise       [HsTyVar name] [HsType name] (UfExpr name)
   | HsNoCafRefs
   | HsCprInfo           CprInfo
+  | HsWorker           name [name]             -- Worker, if any
+                                               -- and needed constructors
 
-
-data HsStrictnessInfo name
+data HsStrictnessInfo
   = HsStrictnessInfo ([Demand], Bool)
-                    (Maybe (name, [name]))     -- Worker, if any
-                                               -- and needed constructors
   | HsBottom
 \end{code}