[project @ 2000-11-24 17:02:01 by simonpj]

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

diff --git a/ghc/compiler/simplStg/SimplStg.lhs b/ghc/compiler/simplStg/SimplStg.lhs
index d4c558d..e8ee16e 100644 (file)
--- a/ghc/compiler/simplStg/SimplStg.lhs
+++ b/ghc/compiler/simplStg/SimplStg.lhs
@@ -33,7 +33,6 @@ import Outputable
 \begin{code}
 stg2stg :: DynFlags            -- includes spec of what stg-to-stg passes to do
        -> Module               -- module name (profiling only)
-       -> UniqSupply           -- a name supply
        -> [StgBinding]         -- input...
        -> IO
            ([(StgBinding,[Id])],  -- output program...
@@ -41,7 +40,7 @@ stg2stg :: DynFlags           -- includes spec of what stg-to-stg passes to do
              [CostCentre],        -- "extern" cost-centres
              [CostCentreStack]))  -- pre-defined "singleton" cost centre stacks
 
-stg2stg dflags module_name us binds
+stg2stg dflags module_name binds
   = do { showPass dflags "Stg2Stg"
        ; us <- mkSplitUniqSupply 'g'