diff options
Diffstat (limited to 'compiler/cmm')
| -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") |