Generalise Package Support

[ghc-hetmet.git] / compiler / simplStg / SimplStg.lhs

diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs
index e87877c..a7b2239 100644 (file)
--- a/compiler/simplStg/SimplStg.lhs
+++ b/compiler/simplStg/SimplStg.lhs
@@ -16,7 +16,6 @@ import StgLint                ( lintStgBindings )
 import StgStats                ( showStgStats )
 import SRT             ( computeSRTs )
 
-import Packages                ( HomeModules )
 import DynFlags                ( DynFlags(..), DynFlag(..), dopt, StgToDo(..),
                          getStgToDo )
 import Id              ( Id )
@@ -28,13 +27,12 @@ import Outputable
 
 \begin{code}
 stg2stg :: DynFlags                 -- includes spec of what stg-to-stg passes to do
-       -> HomeModules
        -> Module                    -- module name (profiling only)
        -> [StgBinding]              -- input...
        -> IO ( [(StgBinding,[(Id,[Id])])]  -- output program...
              , CollectedCCs)        -- cost centre information (declared and used)
 
-stg2stg dflags pkg_deps module_name binds
+stg2stg dflags module_name binds
   = do { showPass dflags "Stg2Stg"
        ; us <- mkSplitUniqSupply 'g'
 
@@ -74,7 +72,8 @@ stg2stg dflags pkg_deps module_name binds
             {-# SCC "ProfMassage" #-}
             let
                 (collected_CCs, binds3)
-                  = stgMassageForProfiling pkg_deps module_name us1 binds
+                  = stgMassageForProfiling this_pkg module_name us1 binds
+                this_pkg = thisPackage dflags
             in
             end_pass us2 "ProfMassage" collected_CCs binds3