[project @ 2000-02-25 14:55:31 by panne]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsSyn.lhs

diff --git a/ghc/compiler/hsSyn/HsSyn.lhs b/ghc/compiler/hsSyn/HsSyn.lhs
index 3435071..42731cc 100644 (file)
--- a/ghc/compiler/hsSyn/HsSyn.lhs
+++ b/ghc/compiler/hsSyn/HsSyn.lhs
@@ -86,11 +86,7 @@ instance (Outputable name, Outputable pat)
       where
        pp_header rest = case deprec of
            Nothing -> pp_modname <+> rest
-           Just dt -> vcat [
-                         pp_modname,
-                         hsep [ptext SLIT("{-# DEPRECATED"), doubleQuotes (ppr dt), ptext SLIT("#-}")],
-                         rest
-                       ]
+           Just d -> vcat [ pp_modname, ppr d, rest ]
 
        pp_modname = ptext SLIT("module") <+> pprModuleName name