diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-10-15 22:51:59 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-10-19 11:41:00 -0700 |
| commit | 5b9fe33d8a85c2e2105844b65da417c7358187ab (patch) | |
| tree | 8b4f3ad1604e2e3e1c7535a78e68437ca900254d /compiler/cmm/PprCmmDecl.hs | |
| parent | b5930f8b8030350eff306bf56ba7607098ada61e (diff) | |
| download | haskell-5b9fe33d8a85c2e2105844b65da417c7358187ab.tar.gz | |
Indentation and non-semantic changes only.
Summary:
Get these lines fitting in 80 columns, and replace ptext (sLit ...) with text
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Test Plan: validate
Reviewers: simonmar, austin
Subscribers: thomie, carter, ezyang, simonmar
Differential Revision: https://phabricator.haskell.org/D342
Diffstat (limited to 'compiler/cmm/PprCmmDecl.hs')
| -rw-r--r-- | compiler/cmm/PprCmmDecl.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/cmm/PprCmmDecl.hs b/compiler/cmm/PprCmmDecl.hs index 417f90d360..c9bbc8b8f7 100644 --- a/compiler/cmm/PprCmmDecl.hs +++ b/compiler/cmm/PprCmmDecl.hs @@ -155,14 +155,14 @@ pprStatic s = case s of -- pprSection :: Section -> SDoc pprSection s = case s of - Text -> section <+> doubleQuotes (ptext (sLit "text")) - Data -> section <+> doubleQuotes (ptext (sLit "data")) - ReadOnlyData -> section <+> doubleQuotes (ptext (sLit "readonly")) - ReadOnlyData16 -> section <+> doubleQuotes (ptext (sLit "readonly16")) + Text -> section <+> doubleQuotes (text "text") + Data -> section <+> doubleQuotes (text "data") + ReadOnlyData -> section <+> doubleQuotes (text "readonly") + ReadOnlyData16 -> section <+> doubleQuotes (text "readonly16") RelocatableReadOnlyData - -> section <+> doubleQuotes (ptext (sLit "relreadonly")) - UninitialisedData -> section <+> doubleQuotes (ptext (sLit "uninitialised")) - StaticClosures -> section <+> doubleQuotes (ptext (sLit "staticclosures")) + -> section <+> doubleQuotes (text "relreadonly") + UninitialisedData -> section <+> doubleQuotes (text "uninitialised") + StaticClosures -> section <+> doubleQuotes (text "staticclosures") OtherSection s' -> section <+> doubleQuotes (text s') where section = ptext (sLit "section") |