[seperate --stop parameter from compilation mode
John Meacham <john@repetae.net>**20120206022810
 Ignore-this: c9ce415c8d84484f687ed1b465dea071
] hunk ./src/Grin/Main.hs 84
-    cf <- case (optOutName options,optMode options) of
+    cf <- case (optOutName options,optStop options) of
hunk ./src/Grin/Main.hs 94
-    when (optMode options == StopC) $
+    when (optStop options == StopC) $
hunk ./src/Ho/Build.hs 396
-    when (optMode options == StopParse) exitSuccess
+    when (optStop options == StopParse) exitSuccess
hunk ./src/Ho/Build.hs 401
-    when (optMode options  == StopTypeCheck) exitSuccess
+    when (optStop options  == StopTypeCheck) exitSuccess
hunk ./src/Main.hs 70
-    if optMode options == CompileHo then return () else do
+    if optStop options == CompileHo then return () else do
hunk ./src/Options.hs 7
+    StopCondition(..),
hunk ./src/Options.hs 146
-          | StopError String         -- ^ error
-          | StopParse                -- ^ Just parse and rename modules then exit
-          | StopTypeCheck            -- ^ Stop after type checking
-          | CompileHo                -- ^ Compile ho
-          | StopC                    -- ^ Stop after producing C code.
hunk ./src/Options.hs 153
+data StopCondition
+    = StopError String         -- ^ error
+    | StopParse                -- ^ Just parse and rename modules then exit
+    | StopTypeCheck            -- ^ Stop after type checking
+    | StopC                    -- ^ Stop after producing C code.
+    | CompileHo                -- ^ Compile ho
+    | StopNot                  -- ^ Don't stop believing.
+            deriving(Eq)
+
hunk ./src/Options.hs 176
+    optStop        ::  StopCondition,
hunk ./src/Options.hs 212
+    optStop        = StopNot,
hunk ./src/Options.hs 254
-    , Option ['c'] []                  (NoArg  (optMode_s CompileHo))        "just compile the modules, caching the results."
-    , Option ['C'] []                  (NoArg  (optMode_s StopC))            "compile to C code"
+    , Option ['c'] []                  (NoArg  (optStop_s CompileHo))        "just compile the modules, caching the results."
+    , Option ['C'] []                  (NoArg  (optStop_s StopC))            "compile to C code"
hunk ./src/Options.hs 259
-    , Option []    ["stop"]            (ReqArg (optMode_s . stop) "parse/typecheck/c")  "stop after the given pass, parse/typecheck/c"
+    , Option []    ["stop"]            (ReqArg (optStop_s . stop) "parse/typecheck/c")  "stop after the given pass, parse/typecheck/c"
hunk ./src/Options.hs 343
+    case optStop o of
+        StopError s -> putErrLn "bad option passed to --stop should be one of parse, deps, typecheck, or c" >> exitWith exitCodeUsage
+        _ -> return ()
hunk ./src/Options.hs 349
-        StopError s -> putErrLn "bad option passed to --stop should be one of parse, deps, typecheck, or c" >> exitWith exitCodeUsage