[project @ 1999-03-17 11:02:35 by simonm]

Print (ICanSafelyBeINLINEd InsideLam _) as "__Ul".

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index e16a754..f486614 100644 (file)
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -181,6 +181,7 @@ instance Outputable InlinePragInfo where
   ppr IMustNotBeINLINEd        = ptext SLIT("__Unot")
   ppr IAmALoopBreaker          = ptext SLIT("__Ux")
   ppr IAmDead                  = ptext SLIT("__Ud")
+  ppr (ICanSafelyBeINLINEd InsideLam _) = ptext SLIT("__Ul")
   ppr (ICanSafelyBeINLINEd _ _) = ptext SLIT("__Us")
   ppr IAmASpecPragmaId                 = ptext SLIT("__US")