From 2aac7f2df6646c3b2e1ec515ccdd34607ece8e62 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 25 Jun 1999 09:18:49 +0000
Subject: [PATCH] [project @ 1999-06-25 09:18:49 by simonmar] +RTS -s gives
 summary statistics only.

---
 ghc/rts/RtsFlags.h |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/RtsFlags.h b/ghc/rts/RtsFlags.h
index 4256c66..a0e6205 100644
--- a/ghc/rts/RtsFlags.h
+++ b/ghc/rts/RtsFlags.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsFlags.h,v 1.13 1999/05/11 16:47:56 keithw Exp $
+ * $Id: RtsFlags.h,v 1.14 1999/06/25 09:18:49 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -14,9 +14,10 @@
 
 struct GC_FLAGS {
     FILE   *statsFile;
-    nat	    giveStats; /* ToDo: replace with enum type? */
+    nat	    giveStats;
 #define NO_GC_STATS	 0
-#define VERBOSE_GC_STATS 1
+#define SUMMARY_GC_STATS 1
+#define VERBOSE_GC_STATS 2
 
     nat     maxStkSize;         /* in *words* */
     nat     initialStkSize;     /* in *words* */
-- 
1.7.10.4