diff options
Diffstat (limited to 'compiler/cmm/PprCmmDecl.hs')
| -rw-r--r-- | compiler/cmm/PprCmmDecl.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cmm/PprCmmDecl.hs b/compiler/cmm/PprCmmDecl.hs index 41653dcd9f..0b22e5369a 100644 --- a/compiler/cmm/PprCmmDecl.hs +++ b/compiler/cmm/PprCmmDecl.hs @@ -81,7 +81,7 @@ instance Outputable CmmStatics where ppr x = sdocWithPlatform $ \platform -> pprStatics platform x instance Outputable CmmStatic where - ppr x = sdocWithPlatform $ \platform -> pprStatic platform x + ppr = pprStatic instance Outputable CmmInfoTable where ppr = pprInfoTable @@ -153,9 +153,9 @@ pprStatics :: Platform -> CmmStatics -> SDoc pprStatics platform (Statics lbl ds) = vcat ((pprCLabel platform lbl <> colon) : map ppr ds) -pprStatic :: Platform -> CmmStatic -> SDoc -pprStatic platform s = case s of - CmmStaticLit lit -> nest 4 $ ptext (sLit "const") <+> pprLit platform lit <> semi +pprStatic :: CmmStatic -> SDoc +pprStatic s = case s of + CmmStaticLit lit -> nest 4 $ ptext (sLit "const") <+> pprLit lit <> semi CmmUninitialised i -> nest 4 $ text "I8" <> brackets (int i) CmmString s' -> nest 4 $ text "I8[]" <+> text (show s') |