diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2010-12-08 06:55:48 +0000 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2010-12-08 06:55:48 +0000 |
| commit | 1e4f900ade324e2db2f886a11d7cb571ad5f180c (patch) | |
| tree | 8357a67ab75ac757adaf605facdba6a377730752 /compiler/main | |
| parent | aa1c7df20292d9af0b757d71870ae6890a1f9030 (diff) | |
| download | haskell-1e4f900ade324e2db2f886a11d7cb571ad5f180c.tar.gz | |
Add -dppr-case-as-let to print "strict lets" as actual lets
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/StaticFlagParser.hs | 3 | ||||
| -rw-r--r-- | compiler/main/StaticFlags.hs | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/compiler/main/StaticFlagParser.hs b/compiler/main/StaticFlagParser.hs index 431414a1d5..c58262649b 100644 --- a/compiler/main/StaticFlagParser.hs +++ b/compiler/main/StaticFlagParser.hs @@ -122,6 +122,8 @@ static_flags = [ ------ Debugging ---------------------------------------------------- , Flag "dppr-debug" (PassFlag addOpt) + , Flag "dppr-user-length" (AnySuffix addOpt) + , Flag "dppr-case-as-let" (PassFlag addOpt) , Flag "dsuppress-all" (PassFlag addOpt) , Flag "dsuppress-uniques" (PassFlag addOpt) , Flag "dsuppress-coercions" (PassFlag addOpt) @@ -129,7 +131,6 @@ static_flags = [ , Flag "dsuppress-type-applications" (PassFlag addOpt) , Flag "dsuppress-idinfo" (PassFlag addOpt) , Flag "dsuppress-type-signatures" (PassFlag addOpt) - , Flag "dppr-user-length" (AnySuffix addOpt) , Flag "dopt-fuel" (AnySuffix addOpt) , Flag "dtrace-level" (AnySuffix addOpt) , Flag "dno-debug-output" (PassFlag addOpt) diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index f9be713d32..880206417d 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -21,6 +21,7 @@ module StaticFlags ( -- Output style options opt_PprUserLength, + opt_PprCaseAsLet, opt_PprStyle_Debug, opt_TraceLevel, opt_NoDebugOutput, @@ -230,6 +231,11 @@ opt_SuppressTypeSignatures || lookUp (fsLit "-dsuppress-type-signatures") +-- | Display case expressions with a single alternative as strict let bindings +opt_PprCaseAsLet :: Bool +opt_PprCaseAsLet + = lookUp (fsLit "-dppr-case-as-let") + opt_PprStyle_Debug :: Bool opt_PprStyle_Debug = lookUp (fsLit "-dppr-debug") |