From: sof <unknown>
Date: Thu, 27 Sep 2001 23:10:52 +0000 (+0000)
Subject: [project @ 2001-09-27 23:10:52 by sof]
X-Git-Tag: Approximately_9120_patches~900
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b7c424e34736329e045eb2d8bab10330a5b42474;p=ghc-hetmet.git

[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
--- 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