diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2010-12-08 06:28:14 +0000 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2010-12-08 06:28:14 +0000 |
| commit | eb2d8fe3f17b2c2bd30b3bf2d1451b367152f036 (patch) | |
| tree | 929c7c48e8aa4a03ce02ca6c99eeee56b5de2f58 /compiler/main/StaticFlags.hs | |
| parent | 69a804e3ff13197cd2962bea96a69bb81eb6bcf0 (diff) | |
| download | haskell-eb2d8fe3f17b2c2bd30b3bf2d1451b367152f036.tar.gz | |
Implement -dsuppress-type-signatures
Diffstat (limited to 'compiler/main/StaticFlags.hs')
| -rw-r--r-- | compiler/main/StaticFlags.hs | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index 9b8ea192f0..f9be713d32 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -21,14 +21,17 @@ module StaticFlags ( -- Output style options opt_PprUserLength, + opt_PprStyle_Debug, opt_TraceLevel, + opt_NoDebugOutput, + + -- Suppressing boring aspects of core dumps opt_SuppressAll, opt_SuppressUniques, opt_SuppressCoercions, opt_SuppressModulePrefixes, opt_SuppressTypeApplications, opt_SuppressIdInfo, - opt_PprStyle_Debug, opt_TraceLevel, - opt_NoDebugOutput, + opt_SuppressTypeSignatures, -- profiling opts opt_SccProfilingOn, @@ -219,7 +222,13 @@ opt_SuppressIdInfo :: Bool opt_SuppressIdInfo = lookUp (fsLit "-dsuppress-all") || lookUp (fsLit "-dsuppress-idinfo") - + +-- | Suppress seprate type signatures in core, but leave types on lambda bound vars +opt_SuppressTypeSignatures :: Bool +opt_SuppressTypeSignatures + = lookUp (fsLit "-dsuppress-all") + || lookUp (fsLit "-dsuppress-type-signatures") + opt_PprStyle_Debug :: Bool opt_PprStyle_Debug = lookUp (fsLit "-dppr-debug") |