Add --pedantic arg to stack ghci/stack ide

commercialhaskell · Sep 11, 2015 · ac59fd0 · ac59fd0
1 parent ee83b8a
commit ac59fd0
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 6 deletions.
diff --git a/src/Stack/Options.hs b/src/Stack/Options.hs
@@ -424,9 +424,14 @@ ghciOptsParser = GhciOpts
              <*> fmap concat (many (argsOption (long "ghc-options" <>
                                        metavar "OPTION" <>
                                        help "Additional options passed to GHCi")))
-             <*> many (textOption (long "build-ghc-options" <>
-                                   metavar "OPTION" <>
-                                   help "Additional options passed to GHC"))
+             <*> ((++)
+                    <$> flag [] ["-Wall", "-Werror"]
+                        ( long "pedantic"
+                       <> help "Turn on -Wall and -Werror (note: option name may change in the future"
+                        )
+                    <*> many (textOption (long "ghc-options" <>
+                                          metavar "OPTION" <>
+                                          help "Additional options passed to GHC")))
              <*> optional
                      (strOption (long "with-ghc" <>
                                  metavar "GHC" <>

diff --git a/src/main/Main.hs b/src/main/Main.hs
@@ -308,9 +308,14 @@ main = withInterpreterArgs stackProgName $ \args isInterpreter -> do
                                                metavar "OPTION" <>
                                                help "Additional options passed to GHCi" <>
                                                value [])
-                               <*> many (textOption (long "build-ghc-options" <>
-                                                     metavar "OPTION" <>
-                                                     help "Additional options passed to GHC")))
+                               <*> ((++)
+                                      <$> flag [] ["-Wall", "-Werror"]
+                                          ( long "pedantic"
+                                         <> help "Turn on -Wall and -Werror (note: option name may change in the future"
+                                          )
+                                      <*> many (textOption (long "ghc-options" <>
+                                                            metavar "OPTION" <>
+                                                            help "Additional options passed to GHC"))))
                      addCommand
                          "packages"
                          "List all available local loadable packages"