Commit b7c424e3 authored by sof's avatar sof
Browse files

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

Inline BasicTypes.CompilerPhase tysyn to workaround
Outputable <--> BasicTypes module loop.
parent 35991146
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment