[project @ 2000-10-17 13:22:10 by simonmar]

[ghc-hetmet.git] / ghc / compiler / stranal / WorkWrap.lhs

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 7a0c4bf..e556ead 100644 (file)
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -10,8 +10,6 @@ module WorkWrap ( wwTopBinds, mkWrapper ) where
 
 import CoreSyn
 import CoreUnfold      ( Unfolding, certainlyWillInline )
-import CmdLineOpts     ( DynFlags,
-                         dopt_D_verbose_core2core, dopt_D_dump_worker_wrapper )
 import CoreLint                ( beginPass, endPass )
 import CoreUtils       ( exprType, exprEtaExpandArity )
 import MkId            ( mkWorkerId )
@@ -25,6 +23,7 @@ import IdInfo         ( mkStrictnessInfo, noStrictnessInfo, StrictnessInfo(..),
                        )
 import Demand           ( Demand, wwLazy )
 import UniqSupply      ( UniqSupply, initUs_, returnUs, thenUs, mapUs, getUniqueUs, UniqSM )
+import CmdLineOpts
 import WwLib
 import Outputable
 \end{code}
@@ -71,8 +70,8 @@ wwTopBinds dflags us binds
        let { binds' = workersAndWrappers us binds };
 
        endPass dflags "Worker Wrapper binds" 
-               (dopt_D_dump_worker_wrapper dflags || 
-                    dopt_D_verbose_core2core dflags) 
+               (dopt Opt_D_dump_worker_wrapper dflags || 
+                    dopt Opt_D_verbose_core2core dflags) 
                 binds'
     }
 \end{code}