Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
e8481f60
Commit
e8481f60
authored
Feb 16, 2000
by
panne
Browse files
[project @ 2000-02-16 12:57:39 by panne]
Fixed pretty printing of DEPRECATED
parent
74651b6d
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/hsSyn/HsBinds.lhs
View file @
e8481f60
...
...
@@ -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
...
...
ghc/compiler/hsSyn/HsSyn.lhs
View file @
e8481f60
...
...
@@ -73,13 +73,10 @@ instance (Outputable name, Outputable pat)
ppr (HsModule name iface_version exports imports
decls deprec src_loc)
= vcat [
case deprec of
Nothing -> empty
Just dt -> hsep [ptext SLIT("{-# DEPRECATED"), ppr dt, ptext SLIT("#-}")],
case exports of
Nothing ->
hsep [ptext SLIT("module"), pprModuleName name,
ptext SLIT("where")
]
Nothing ->
pp_header (
ptext SLIT("where")
)
Just es -> vcat [
hsep [ptext SLIT("module"), pprModuleName name,
lparen
]
,
pp_header
lparen,
nest 8 (fsep (punctuate comma (map ppr es))),
nest 4 (ptext SLIT(") where"))
],
...
...
@@ -87,6 +84,16 @@ instance (Outputable name, Outputable pat)
pp_nonnull decls
]
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
]
pp_modname = ptext SLIT("module") <+> pprModuleName name
pp_nonnull [] = empty
pp_nonnull xs = vcat (map ppr xs)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment