X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FbasicTypes%2FPragmaInfo.lhs;h=d7f514a82a29b36f266316dba604874560e11d46;hb=dcef38bab91d45b56f7cf3ceeec96303d93728bb;hp=b1bf499774ea5e8bb7fbbd2090cfa5a6b82ecd8a;hpb=f1815aa4bb218b92bc699d1355b6a704ee3e89ee;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/PragmaInfo.lhs b/ghc/compiler/basicTypes/PragmaInfo.lhs
index b1bf499..d7f514a 100644
--- a/ghc/compiler/basicTypes/PragmaInfo.lhs
+++ b/ghc/compiler/basicTypes/PragmaInfo.lhs
@@ -14,5 +14,11 @@ IMP_Ubiq()
 \begin{code}
 data PragmaInfo
   = NoPragmaInfo
+
   | IWantToBeINLINEd
+
+  | IMustNotBeINLINEd	-- Used by the simplifier to prevent looping
+			-- on recursive definitions
+
+  | IMustBeINLINEd	-- Absolutely must inline; used for PrimOps only
 \end{code}