From c60cea955dcd5da7fb73283008c7d3550d2e303c Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 10 Nov 2000 17:04:01 +0000 Subject: [PATCH] [project @ 2000-11-10 17:04:01 by simonpj] Fix printing of deprecations --- ghc/compiler/main/MkIface.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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} -- 1.7.10.4