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/StaticFlags.hs | |
| 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/StaticFlags.hs')
| -rw-r--r-- | compiler/main/StaticFlags.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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") |