[commit: ghc] master: DynFlags: -freverse-errors should be defFlag (677d768)

git at git.haskell.org git at git.haskell.org
Sun Nov 1 12:43:05 UTC 2015


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

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

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

commit 677d7687f26dae9ac7c054c030d32f59a1460c72
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Nov 1 12:28:10 2015 +0100

    DynFlags: -freverse-errors should be defFlag
    
    This flag works under both GHC and GHCi, as pointed out on D1367. Thanks
    to @thomie for pointing this out.


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

677d7687f26dae9ac7c054c030d32f59a1460c72
 compiler/main/DynFlags.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 0c1facc..fb6265c 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -2410,9 +2410,9 @@ dynamic_flags = [
                                      deprecate "Use -fno-force-recomp instead"))
   , defGhcFlag "no-recomp" (NoArg (do setGeneralFlag Opt_ForceRecomp
                                       deprecate "Use -fforce-recomp instead"))
-  , defGhcFlag "freverse-errors"
+  , defFlag "freverse-errors"
       (noArg (\d -> d {reverseErrors = True} ))
-  , defGhcFlag "fno-reverse-errors"
+  , defFlag "fno-reverse-errors"
       (noArg (\d -> d {reverseErrors = False} ))
 
         ------ HsCpp opts ---------------------------------------------------



More information about the ghc-commits mailing list