From b7c424e34736329e045eb2d8bab10330a5b42474 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 27 Sep 2001 23:10:52 +0000
Subject: [PATCH] [project @ 2001-09-27 23:10:52 by sof] Inline
 BasicTypes.CompilerPhase tysyn to workaround Outputable
 <--> BasicTypes module loop.

---
 ghc/compiler/main/CmdLineOpts.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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