[project @ 2000-09-06 10:23:52 by simonmar]

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

diff --git a/ghc/compiler/hsSyn/HsSyn.lhs b/ghc/compiler/hsSyn/HsSyn.lhs
index 3435071..bf722a5 100644 (file)
--- a/ghc/compiler/hsSyn/HsSyn.lhs
+++ b/ghc/compiler/hsSyn/HsSyn.lhs
@@ -86,19 +86,12 @@ 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
 
        pp_nonnull [] = empty
        pp_nonnull xs = vcat (map ppr xs)
-
-       pp_iface_version Nothing  = empty
-       pp_iface_version (Just n) = hsep [text "{-# INTERFACE", int n, text "#-}"]
 \end{code}