From: simonm <unknown>
Date: Wed, 17 Mar 1999 11:02:35 +0000 (+0000)
Subject: [project @ 1999-03-17 11:02:35 by simonm]
X-Git-Tag: Approximately_9120_patches~6380
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=27f395a7289a5c944b135345d9c956e03d5317a2;p=ghc-hetmet.git

[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
--- 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")