[commit: ghc] master: DynFlags: Add inverse of -dno-debug-output (dbaa9a2)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/dbaa9a237b6d9771c0e9bde0e50fd2134c2f4dd0/ghc

>---------------------------------------------------------------

commit dbaa9a237b6d9771c0e9bde0e50fd2134c2f4dd0
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Tue Aug 22 11:40:51 2017 -0400

    DynFlags: Add inverse of -dno-debug-output
    
    Reviewers: austin
    
    Subscribers: rwbarton, thomie
    
    GHC Trac Issues: #14142
    
    Differential Revision: https://phabricator.haskell.org/D3876


>---------------------------------------------------------------

dbaa9a237b6d9771c0e9bde0e50fd2134c2f4dd0
 compiler/main/DynFlags.hs      | 2 ++
 docs/users_guide/debugging.rst | 1 +
 2 files changed, 3 insertions(+)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 4515380..590d834 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -3089,6 +3089,8 @@ dynamic_flags_deps = [
         (noArg (flip dopt_set Opt_D_dump_json . setJsonLogAction ) )
   , make_ord_flag defGhcFlag "dppr-debug"
         (setDumpFlag Opt_D_ppr_debug)
+  , make_ord_flag defGhcFlag "ddebug-output"
+        (noArg (flip dopt_unset Opt_D_no_debug_output))
   , make_ord_flag defGhcFlag "dno-debug-output"
         (setDumpFlag Opt_D_no_debug_output)
 
diff --git a/docs/users_guide/debugging.rst b/docs/users_guide/debugging.rst
index fc18e55..b6b1a92 100644
--- a/docs/users_guide/debugging.rst
+++ b/docs/users_guide/debugging.rst
@@ -457,6 +457,7 @@ Formatting dumps
 .. ghc-flag:: -dno-debug-output
     :shortdesc: Suppress unsolicited debugging output
     :type: dynamic
+    :reverse: -ddebug-output
     :category:
 
     Suppress any unsolicited debugging output. When GHC has been built