diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-15 00:50:25 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-15 00:50:25 +0100 |
| commit | 7b44e519e7bd746ccab648c75c89a0f42f6c5871 (patch) | |
| tree | 48836ff4cabee78b188baae1b0b3a29da9a030ad /compiler/simplStg/SimplStg.lhs | |
| parent | e94e97a134612e53ff8f5ce71914f8e7361a654a (diff) | |
| download | haskell-7b44e519e7bd746ccab648c75c89a0f42f6c5871.tar.gz | |
Remove a little more CPP
Diffstat (limited to 'compiler/simplStg/SimplStg.lhs')
| -rw-r--r-- | compiler/simplStg/SimplStg.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs index 4c240e2135..c1faf8047b 100644 --- a/compiler/simplStg/SimplStg.lhs +++ b/compiler/simplStg/SimplStg.lhs @@ -72,8 +72,7 @@ stg2stg dflags module_name binds {-# SCC "ProfMassage" #-} let (collected_CCs, binds3) - = stgMassageForProfiling dflags this_pkg module_name us1 binds - this_pkg = thisPackage dflags + = stgMassageForProfiling dflags module_name us1 binds in end_pass us2 "ProfMassage" collected_CCs binds3 |