diff options
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index cb2adf7dc1..e8176bae60 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -51,7 +51,6 @@ import FastString import Data.List import System.IO import Data.Maybe -import Data.Char pprCmms :: [Cmm] -> SDoc pprCmms cmms = pprCode CStyle (vcat (intersperse separator $ map ppr cmms)) @@ -397,8 +396,7 @@ pprStatic s = case s of CmmUninitialised i -> nest 4 $ text "I8" <> brackets (int i) CmmAlign i -> nest 4 $ text "align" <+> int i CmmDataLabel clbl -> pprCLabel clbl <> colon - CmmString s' -> nest 4 $ text "I8[]" <+> - doubleQuotes (text (map (chr.fromIntegral) s')) + CmmString s' -> nest 4 $ text "I8[]" <+> text (show s') -- -------------------------------------------------------------------------- -- Registers, whether local (temps) or global |