From: sof <unknown>
Date: Tue, 28 Apr 1998 09:06:43 +0000 (+0000)
Subject: [project @ 1998-04-28 09:06:43 by sof]
X-Git-Tag: Approx_2487_patches~771
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=30eb950d8588f78d5a6ba77233105e0f3ce2da3b;p=ghc-hetmet.git

[project @ 1998-04-28 09:06:43 by sof]
pprId: restrict printing of inline pragma info to non-code settings
---

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index e9694d4..9d3028c 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -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}