[project @ 1999-04-13 08:55:33 by kglynn]

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

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index fe026da..adefae8 100644 (file)
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -24,7 +24,7 @@ import HsPragmas      ( DataPragmas, ClassPragmas )
 import HsTypes
 import HsCore          ( UfExpr )
 import BasicTypes      ( Fixity, NewOrData(..) )
-import IdInfo          ( ArityInfo, UpdateInfo, InlinePragInfo )
+import IdInfo          ( ArityInfo, UpdateInfo, InlinePragInfo, CprInfo )
 import Demand          ( Demand )
 import CallConv                ( CallConv, pprCallConv )
 
@@ -453,6 +453,7 @@ data HsIdInfo name
   | HsUpdate           UpdateInfo
   | HsSpecialise       [HsTyVar name] [HsType name] (UfExpr name)
   | HsNoCafRefs
+  | HsCprInfo           CprInfo
 
 
 data HsStrictnessInfo name