From 4c926bcc089b14b80941ead4a3a2a4ac80590f77 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 04:32:42 +0000
Subject: [PATCH] [project @ 1997-05-26 04:32:42 by sof] New options:
 opt_PruneTyDecls, optPruneInstDecls,
 opt_D_show_unused_imports, opt_D_show_rn_stats,
 opt_PprUserLength

---
 ghc/compiler/main/CmdLineOpts.lhs |   15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index cae8da7..8fd3c64 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -71,6 +71,7 @@ module CmdLineOpts (
 	opt_PprStyle_All,
 	opt_PprStyle_Debug,
 	opt_PprStyle_User,
+	opt_PprUserLength,
 	opt_ProduceC,
 	opt_ProduceHi,
 	opt_ProduceS,
@@ -98,7 +99,9 @@ module CmdLineOpts (
 	opt_WarnNameShadowing,
 	opt_WarnUnusedNames,
 	opt_WarnIncompletePatterns,
-	opt_TyConPruning
+	opt_PruneTyDecls, opt_PruneInstDecls,
+	opt_D_show_unused_imports,
+	opt_D_show_rn_stats
     ) where
 
 IMPORT_1_3(Array(array, (//)))
@@ -107,8 +110,11 @@ import PreludeGlaST	-- bad bad bad boy, Will (_Array internals)
 #else
 import GlaExts
 import ArrBase
+-- 2.04 and later exports Lift from GlaExts
+#if __GLASGOW_HASKELL__ < 204
 import PrelBase (Lift(..))
 #endif
+#endif
 import Argv
 
 CHK_Ubiq() -- debugging consistency check
@@ -318,6 +324,7 @@ opt_OmitInterfacePragmas	= lookUp  SLIT("-fomit-interface-pragmas")
 opt_PprStyle_All		= lookUp  SLIT("-dppr-all")
 opt_PprStyle_Debug		= lookUp  SLIT("-dppr-debug")
 opt_PprStyle_User		= lookUp  SLIT("-dppr-user")
+opt_PprUserLength	        = lookup_def_int "-dppr-user-length" 5 --ToDo: give this a name
 opt_ProduceC  			= lookup_str "-C="
 opt_ProduceS  			= lookup_str "-S="
 opt_ProduceHi 			= lookup_str "-hifile=" -- the one to produce this time 
@@ -346,9 +353,11 @@ opt_LiberateCaseThreshold	= lookup_def_int "-fliberate-case-threshold"	   lIBERA
 opt_WarnNameShadowing		= lookUp  SLIT("-fwarn-name-shadowing")
 opt_WarnIncompletePatterns	= not (lookUp  SLIT("-fno-warn-incomplete-patterns"))
 opt_WarnUnusedNames		= lookUp  SLIT("-fwarn-unused-names")
-opt_TyConPruning		= not (lookUp SLIT("-fno-tycon-pruning"))
+opt_PruneTyDecls		= not (lookUp SLIT("-fno-prune-tydecls"))
+opt_PruneInstDecls		= not (lookUp SLIT("-fno-prune-instdecls"))
+opt_D_show_unused_imports	= lookUp SLIT("-dshow-unused-imports")
+opt_D_show_rn_stats		= lookUp SLIT("-dshow-rn-stats")
 
--- opt_UnfoldingUseThreshold	= lookup_int "-funfolding-use-threshold"
 -- opt_UnfoldingOverrideThreshold	= lookup_int "-funfolding-override-threshold"
 \end{code}
 
-- 
1.7.10.4