From: simonpj <unknown>
Date: Fri, 10 Nov 2000 17:04:01 +0000 (+0000)
Subject: [project @ 2000-11-10 17:04:01 by simonpj]
X-Git-Tag: Approximately_9120_patches~3376
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c60cea955dcd5da7fb73283008c7d3550d2e303c;p=ghc-hetmet.git

[project @ 2000-11-10 17:04:01 by simonpj]
Fix printing of deprecations
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 5db70c4..6aa5127 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -726,10 +726,10 @@ pprDeprecs NoDeprecs = empty
 pprDeprecs deprecs   = ptext SLIT("{-## __D") <+> guts <+> ptext SLIT("##-}")
 		     where
 		       guts = case deprecs of
-				DeprecAll txt  -> ptext txt
+				DeprecAll txt  -> doubleQuotes (ptext txt)
 				DeprecSome env -> pp_deprecs env
 
 pp_deprecs env = vcat (punctuate semi (map pp_deprec (nameEnvElts env)))
 	       where
-		 pp_deprec (name, txt) = pprOcc name <+> ptext txt
+		 pp_deprec (name, txt) = pprOcc name <+> doubleQuotes (ptext txt)
 \end{code}