diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-10-26 11:20:06 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-10-26 11:20:07 -0400 |
| commit | 48876ae04c4963f8d5a60a121ac85d52322faaee (patch) | |
| tree | b831d6c2ac00b9684caf50e90e0cb56fe1e06f6f /compiler/vectorise | |
| parent | 23143f60680f78f80762754fe060a3e8c6dc9a01 (diff) | |
| download | haskell-48876ae04c4963f8d5a60a121ac85d52322faaee.tar.gz | |
Remove -dtrace-level
The flag was:
1. Not documented.
2. Only used as a boolean flag.
3. Has overlapping functionality with -dno-debug-output
4. My poll of #ghc concluded that people didn't know it existed.
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2627
GHC Trac Issues: #12691
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/Vectorise/Monad/Base.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/vectorise/Vectorise/Monad/Base.hs b/compiler/vectorise/Vectorise/Monad/Base.hs index b084da67dc..a612a9c1cc 100644 --- a/compiler/vectorise/Vectorise/Monad/Base.hs +++ b/compiler/vectorise/Vectorise/Monad/Base.hs @@ -123,9 +123,7 @@ emitVt herald doc -- traceVt :: String -> SDoc -> VM () traceVt herald doc - = do dflags <- getDynFlags - when (1 <= traceLevel dflags) $ - liftDs $ traceOptIf Opt_D_dump_vt_trace $ hang (text herald) 2 doc + = liftDs $ traceOptIf Opt_D_dump_vt_trace $ hang (text herald) 2 doc -- |Dump the given program conditionally. -- |