diff options
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") |