diff options
| author | Dimitrios Vytiniotis <dimitris@microsoft.com> | 2011-11-26 18:12:21 +0000 |
|---|---|---|
| committer | Dimitrios Vytiniotis <dimitris@microsoft.com> | 2011-11-28 12:11:05 +0000 |
| commit | cae91683a9d58abfacbf23553c686915ccbf9d49 (patch) | |
| tree | 79e38865971268ecc018230f7a437141a6b57920 /compiler/main | |
| parent | 4bc84da3ee16cc7fd3f939b06c2c67195611a963 (diff) | |
| download | haskell-cae91683a9d58abfacbf23553c686915ccbf9d49.tar.gz | |
Implemented -dsuppress-var-kinds flag to remove silly kinds when dppr-debug is on.
Adding commentary, and fixing a knot-tie related bug.
Commentary only.
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/StaticFlagParser.hs | 1 | ||||
| -rw-r--r-- | compiler/main/StaticFlags.hs | 6 |
2 files changed, 7 insertions, 0 deletions
diff --git a/compiler/main/StaticFlagParser.hs b/compiler/main/StaticFlagParser.hs index 1db5ef63e0..07eb214f74 100644 --- a/compiler/main/StaticFlagParser.hs +++ b/compiler/main/StaticFlagParser.hs @@ -132,6 +132,7 @@ static_flags = [ , Flag "dsuppress-module-prefixes" (PassFlag addOpt) , Flag "dsuppress-type-applications" (PassFlag addOpt) , Flag "dsuppress-idinfo" (PassFlag addOpt) + , Flag "dsuppress-var-kinds" (PassFlag addOpt) , Flag "dsuppress-type-signatures" (PassFlag addOpt) , Flag "dopt-fuel" (AnySuffix addOpt) , Flag "dtrace-level" (AnySuffix addOpt) diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index e89d9b32a4..c2f8674aa9 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -41,6 +41,7 @@ module StaticFlags ( opt_SuppressTypeApplications, opt_SuppressIdInfo, opt_SuppressTypeSignatures, + opt_SuppressVarKinds, -- profiling opts opt_SccProfilingOn, @@ -223,6 +224,11 @@ opt_SuppressCoercions = lookUp (fsLit "-dsuppress-all") || lookUp (fsLit "-dsuppress-coercions") +opt_SuppressVarKinds :: Bool +opt_SuppressVarKinds + = lookUp (fsLit "-dsuppress-all") + || lookUp (fsLit "-dsuppress-var-kinds") + -- | Suppress module id prefixes on variables. opt_SuppressModulePrefixes :: Bool opt_SuppressModulePrefixes |