From: kglynn <unknown>
Date: Tue, 29 Jun 1999 05:13:30 +0000 (+0000)
Subject: [project @ 1999-06-29 05:13:30 by kglynn]
X-Git-Tag: Approximately_9120_patches~6058
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a24a3b714edd37bd9e4bdc43ffc5ff02cc0afd08;p=ghc-hetmet.git

[project @ 1999-06-29 05:13:30 by kglynn]
(keving)

Add dump-cpranal to agree with the users_guide.  dump-cpranalyse will
still work but is deprecated and could be removed by someone with
a bigger stick than me.
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index eac02db..cad5b77 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -297,7 +297,11 @@ src_filename = case argv of
 -- debugging opts
 opt_D_dump_absC			= lookUp  SLIT("-ddump-absC")
 opt_D_dump_asm			= lookUp  SLIT("-ddump-asm")
-opt_D_dump_cpranal	        = lookUp  SLIT("-ddump-cpranalyse")
+-- Make the option agree with the doc! dump-cpranal is preferred over
+-- dump-cpranalyse because of consistency with dump-stranal (and
+-- we don't have to worry about british vs american english).
+opt_D_dump_cpranal	        = lookUp  SLIT("-ddump-cpranal") ||
+				  lookUp  SLIT("-ddump-cpranalyse")
 opt_D_dump_deriv		= lookUp  SLIT("-ddump-deriv")
 opt_D_dump_ds			= lookUp  SLIT("-ddump-ds")
 opt_D_dump_flatC		= lookUp  SLIT("-ddump-flatC")