diff options
author | panne <unknown> | 2000-02-16 12:57:39 +0000 |
---|---|---|
committer | panne <unknown> | 2000-02-16 12:57:39 +0000 |
commit | e8481f60d4fab668f061eabe74244e44fe2e4ea9 (patch) | |
tree | cfa2c7d68fe78204a81903683aff9239899e130f /ghc/compiler/hsSyn/HsBinds.lhs | |
parent | 74651b6d424acdb604f3858e944a979bb9a938ae (diff) | |
download | haskell-e8481f60d4fab668f061eabe74244e44fe2e4ea9.tar.gz |
[project @ 2000-02-16 12:57:39 by panne]
Fixed pretty printing of DEPRECATED
Diffstat (limited to 'ghc/compiler/hsSyn/HsBinds.lhs')
-rw-r--r-- | ghc/compiler/hsSyn/HsBinds.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs index 049baac810..2e048eced6 100644 --- a/ghc/compiler/hsSyn/HsBinds.lhs +++ b/ghc/compiler/hsSyn/HsBinds.lhs @@ -329,7 +329,7 @@ ppr_sig (SpecInstSig ty _) ppr_sig (FixSig fix_sig) = ppr fix_sig ppr_sig (DeprecSig n txt) - = hsep [text "{-# DEPRECATED", ppr n, ppr txt, text "#-}"] + = hsep [text "{-# DEPRECATED", ppr n, doubleQuotes(ppr txt), text "#-}"] ppr_phase Nothing = empty ppr_phase (Just n) = int n |