[commit: ghc] master: Remove unwanted '-O0's in Settings.Packages (#674) (921dbbd)

[git at git.haskell.org]

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

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

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

commit 921dbbdc771212ad408a11d841707c01254fdb39
Author: Alp Mestanogullari <alpmestan at gmail.com>
Date:   Wed Sep 5 01:23:26 2018 +0200

    Remove unwanted '-O0's in Settings.Packages (#674)


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

921dbbdc771212ad408a11d841707c01254fdb39
 src/Settings/Packages.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/Settings/Packages.hs b/src/Settings/Packages.hs
index 5249c5a..2dbb826 100644
--- a/src/Settings/Packages.hs
+++ b/src/Settings/Packages.hs
@@ -31,8 +31,8 @@ packageArgs = do
           -- See https://ghc.haskell.org/trac/ghc/ticket/15286 and
           -- https://phabricator.haskell.org/D4880
           , builder (Ghc CompileHs) ? mconcat
-             [ input "//Natural.hs" ? pure ["-O0", "-fno-omit-interface-pragmas"]
-             , input "//Num.hs" ? pure ["-O0", "-fno-ignore-interface-pragmas"]
+             [ input "//Natural.hs" ? pure ["-fno-omit-interface-pragmas"]
+             , input "//Num.hs" ? pure ["-fno-ignore-interface-pragmas"]
              ]
           ]
         ------------------------------ bytestring ------------------------------
@@ -53,7 +53,7 @@ packageArgs = do
           , builder (Ghc CompileHs) ? mconcat
             [ inputs ["//GHC.hs", "//GhcMake.hs"] ? arg "-fprof-auto"
             , input "//Parser.hs" ?
-              pure ["-O0", "-fno-ignore-interface-pragmas", "-fcmm-sink" ] ]
+              pure ["-fno-ignore-interface-pragmas", "-fcmm-sink" ] ]
 
           , builder (Cabal Setup) ? mconcat
             [ arg $ "--ghc-option=-DSTAGE=" ++ show (fromEnum stage + 1)
@@ -213,8 +213,7 @@ rtsPackageArgs = package rts ? do
 
           , Debug     `wayUnit` way          ? pure [ "-DDEBUG"
                                                     , "-fno-omit-frame-pointer"
-                                                    , "-g"
-                                                    , "-O0" ]
+                                                    , "-g" ]
           , way `elem` [debug, debugDynamic] ? arg "-DTICKY_TICKY"
           , Profiling `wayUnit` way          ? arg "-DPROFILING"
           , Threaded  `wayUnit` way          ? arg "-DTHREADED_RTS"