diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-18 11:21:59 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-18 13:10:03 +0100 |
| commit | 8cdb98b9909561671ab4e61c90ebb12504478e4d (patch) | |
| tree | d81bd546de90e1836d3b165a305e907e1adae644 /compiler/main/StaticFlags.hs | |
| parent | 7c987d10f012e2f175344fa2c28b36f073bda293 (diff) | |
| download | haskell-8cdb98b9909561671ab4e61c90ebb12504478e4d.tar.gz | |
Make -dtrace-level a dynamic flag
Diffstat (limited to 'compiler/main/StaticFlags.hs')
| -rw-r--r-- | compiler/main/StaticFlags.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index c76059c941..87f24d0955 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -28,7 +28,7 @@ module StaticFlags ( -- Output style options opt_PprCols, - opt_PprStyle_Debug, opt_TraceLevel, + opt_PprStyle_Debug, opt_NoDebugOutput, -- Suppressing boring aspects of core dumps @@ -266,10 +266,6 @@ opt_PprCols opt_PprStyle_Debug :: Bool opt_PprStyle_Debug = lookUp (fsLit "-dppr-debug") -opt_TraceLevel :: Int -opt_TraceLevel = lookup_def_int "-dtrace-level" 1 -- Standard level is 1 - -- Less verbose is 0 - opt_Fuel :: Int opt_Fuel = lookup_def_int "-dopt-fuel" maxBound |