From 27f395a7289a5c944b135345d9c956e03d5317a2 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 17 Mar 1999 11:02:35 +0000
Subject: [PATCH] [project @ 1999-03-17 11:02:35 by simonm] Print
(ICanSafelyBeINLINEd InsideLam _) as "__Ul".
---
ghc/compiler/basicTypes/IdInfo.lhs | 1 +
1 file changed, 1 insertion(+)
diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index e16a754aeb2b..f486614afff4 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")
--
GitLab