diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-20 00:30:33 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-20 00:30:33 +0100 |
| commit | aa6bc700cc07e21a8b6aa5816a8c63201b9b260e (patch) | |
| tree | 1f2d7fd63378693418cfda7a70cb5ac721548dce /compiler/cmm/OldCmmLint.hs | |
| parent | 54affcef5e0f269bdcca3c160e7d6bff065adb8c (diff) | |
| download | haskell-aa6bc700cc07e21a8b6aa5816a8c63201b9b260e.tar.gz | |
Remove a couple of unneccesary Platform arguments
Diffstat (limited to 'compiler/cmm/OldCmmLint.hs')
| -rw-r--r-- | compiler/cmm/OldCmmLint.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/cmm/OldCmmLint.hs b/compiler/cmm/OldCmmLint.hs index 5dd3209892..f158369b13 100644 --- a/compiler/cmm/OldCmmLint.hs +++ b/compiler/cmm/OldCmmLint.hs @@ -19,7 +19,6 @@ module OldCmmLint ( import BlockId import OldCmm -import CLabel import Outputable import OldPprCmm() import FastString @@ -50,10 +49,9 @@ runCmmLint _ l p = lintCmmDecl :: DynFlags -> (GenCmmDecl h i (ListGraph CmmStmt)) -> CmmLint () lintCmmDecl dflags (CmmProc _ lbl (ListGraph blocks)) - = addLintInfo (text "in proc " <> pprCLabel platform lbl) $ + = addLintInfo (text "in proc " <> ppr lbl) $ let labels = foldl (\s b -> setInsert (blockId b) s) setEmpty blocks in mapM_ (lintCmmBlock dflags labels) blocks - where platform = targetPlatform dflags lintCmmDecl _ (CmmData {}) = return () |