diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-20 16:42:12 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-20 16:42:12 +0100 |
| commit | 5045cfbc96315e3bc645c563bcd8df8e548d66ae (patch) | |
| tree | ca2a4848c504c81f38719a0f83366dd50ec6b01d /compiler/cmm/PprCmmDecl.hs | |
| parent | 158c3530eb4ec3b770f293341c4817fc7ea4094d (diff) | |
| download | haskell-5045cfbc96315e3bc645c563bcd8df8e548d66ae.tar.gz | |
Remove some redundant Platform arguments
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') |