From: sof <unknown>
Date: Mon, 25 Aug 1997 21:05:19 +0000 (+0000)
Subject: [project @ 1997-08-25 21:05:19 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~140
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4ca454b80a8620051f5ad8c93f7b447f809de075

[project @ 1997-08-25 21:05:19 by sof]
Removed opt_Haskell_1_3; changed simplifier opts grouping syntax
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 9af5db2..a5ef6c4 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -56,7 +56,6 @@ module CmdLineOpts (
 	opt_ForConcurrent,
 	opt_GlasgowExts,
 	opt_GranMacros,
-	opt_Haskell_1_3,
 	opt_HiMap,
 	opt_IgnoreIfacePragmas,
 	opt_IgnoreStrictnessPragmas,
@@ -312,7 +311,7 @@ opt_FoldrBuildTrace		= lookUp  SLIT("-ffoldr-build-trace")
 opt_ForConcurrent		= lookUp  SLIT("-fconcurrent")
 opt_GranMacros			= lookUp  SLIT("-fgransim")
 opt_GlasgowExts			= lookUp  SLIT("-fglasgow-exts")
-opt_Haskell_1_3			= lookUp  SLIT("-fhaskell-1.3")
+--UNUSED:opt_Haskell_1_3	= lookUp  SLIT("-fhaskell-1.3")
 opt_HiMap 			= lookup_str "-himap="  -- file saying where to look for .hi files
 opt_IgnoreIfacePragmas		= lookUp  SLIT("-fignore-interface-pragmas")
 opt_IgnoreStrictnessPragmas	= lookUp  SLIT("-fignore-strictness-pragmas")
@@ -442,12 +441,12 @@ classifyOpts = sep argv [] [] -- accumulators...
       = panic "simpl_sep []"
 #endif
 
-	-- The SimplifierSwitches should be delimited by "(" and ")".
+	-- The SimplifierSwitches should be delimited by "[" and "]".
 
     simpl_sep (opt1:opts) simpl_sw core_td stg_td
       = case (_UNPK_ opt1) of
-	  "(" -> simpl_sep opts simpl_sw core_td stg_td
-	  ")" -> let
+	  "[" -> simpl_sep opts simpl_sw core_td stg_td
+	  "]" -> let
 		    this_simpl = CoreDoSimplify (isAmongSimpl simpl_sw)
 		 in
 		 sep opts (this_simpl : core_td) stg_td