Skip to content
Snippets Groups Projects
Commit 27f395a7 authored by Simon Marlow's avatar Simon Marlow
Browse files

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

Print (ICanSafelyBeINLINEd InsideLam _) as "__Ul".
parent fc7b70af
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ghc/compiler/basicTypes/IdInfo.lhs
+ 1
− 0
View file @ 27f395a7
......@@ -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")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment