From b435b77395f8fd9a214a9bc7c25735c6f798896a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 03:58:52 +0000
Subject: [PATCH] [project @ 1997-05-18 03:58:52 by sof] -t fix

---
 ghc/runtime/main/RtsFlags.lc |   11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/ghc/runtime/main/RtsFlags.lc b/ghc/runtime/main/RtsFlags.lc
index 8c32dde..38706e6 100644
--- a/ghc/runtime/main/RtsFlags.lc
+++ b/ghc/runtime/main/RtsFlags.lc
@@ -557,13 +557,8 @@ error = rtsTrue;
 			RTSflags.CcFlags.sortBy = rts_argv[arg][2];
 		    break;
 		  default:
-		    PAR_BUILD_ONLY(
-		    break; /* we do not care about sortBy for parallel */
-		    )
-		    PROFILING_BUILD_ONLY(
-		    fprintf(stderr, "Invalid profiling sort option %s\n", rts_argv[arg]);
-		    error = rtsTrue;
-		    )
+		    	RTSflags.CcFlags.sortBy = SORTCC_TIME;
+		    break;
 		}
 		) break;
 
@@ -691,7 +686,7 @@ error = rtsTrue;
 		      case 'd': /* closure descr select */
 			RTSflags.ProfFlags.descrSelector = left + 1;
 			break;
-		      case 't': /* closure type select */
+		      case 'y': /* closure type select */
 			RTSflags.ProfFlags.typeSelector = left + 1;
 			break;
 		      case 'k': /* closure kind select */
-- 
1.7.10.4