Commit 30eb950d authored by sof's avatar sof

[project @ 1998-04-28 09:06:43 by sof]

pprId: restrict printing of inline pragma info to non-code settings
parent c4d9be04
......@@ -637,12 +637,17 @@ pprId :: Outputable ty => GenId ty -> SDoc
pprId Id {idUnique = u, idName = n, idInfo = info}
= hcat [ppr n, pp_prags]
where
pp_prags | opt_PprStyle_All = case inlinePragInfo info of
IMustNotBeINLINEd -> text "{n}"
IWantToBeINLINEd -> text "{i}"
IMustBeINLINEd -> text "{I}"
other -> empty
| otherwise = empty
pp_prags sty
| opt_PprStyle_All && not (codeStyle sty)
= (case inlinePragInfo info of
IMustNotBeINLINEd -> text "{n}"
IWantToBeINLINEd -> text "{i}"
IMustBeINLINEd -> text "{I}"
other -> empty) sty
| otherwise
= empty sty
\end{code}
\begin{code}
......
Markdown is supported
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