[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplEnv.lhs

diff --git a/ghc/compiler/simplCore/SimplEnv.lhs b/ghc/compiler/simplCore/SimplEnv.lhs
index c06e976..a433475 100644 (file)
--- a/ghc/compiler/simplCore/SimplEnv.lhs
+++ b/ghc/compiler/simplCore/SimplEnv.lhs
@@ -505,6 +505,12 @@ data UnfoldingGuidance
                                -- be possible).
                        Int     -- The "size" of the unfolding; to be elaborated
                                -- later. ToDo
+
+  | BadUnfolding               -- This is used by TcPragmas if the *lazy*
+                               -- lintUnfolding test fails
+                               -- It will never escape from the IdInfo as
+                               -- it is caught by getInfo_UF and converted
+                               -- to NoUnfoldingDetails
 \end{code}
 
 \begin{code}