[project @ 2001-09-27 23:10:52 by sof]

Inline BasicTypes.CompilerPhase tysyn to workaround
Outputable <--> BasicTypes module loop.

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 10a9885..0f204ff 100644 (file)
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -114,7 +114,6 @@ module CmdLineOpts (
 
 import GlaExts
 import IOExts  ( IORef, readIORef, writeIORef )
-import BasicTypes      ( CompilerPhase )
 import Constants       -- Default values for some flags
 import Util
 import FastTypes
@@ -185,7 +184,7 @@ data CoreToDo               -- These are diff core-to-core passes,
   | CoreDoCPResult
   | CoreDoGlomBinds
   | CoreCSE
-  | CoreDoRuleCheck CompilerPhase String       -- Check for non-application of rules 
+  | CoreDoRuleCheck Int{-CompilerPhase-} String        -- Check for non-application of rules 
                                                -- matching this string
 
   | CoreDoNothing       -- useful when building up lists of these things