Add pedantic option to ghci (commercialhaskell#4463)

alexkazik · Dec 27, 2018 · df30f9d · mihaimaruseac · Dec 27, 2018 · df30f9d
1 parent 1bbed48
commit df30f9d
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -77,6 +77,8 @@ Other enhancements:
   [#4095](https://github.com/commercialhaskell/stack/issues/4095)
 * Add `--tree` to `ls dependencies` to list dependencies as tree.
   [#4101](https://github.com/commercialhaskell/stack/issues/4101)
+* Add `--pedantic` to `ghci` to run with `-Wall` and `-Werror`
+  [#4463](https://github.com/commercialhaskell/stack/issues/4463)
 
 Bug fixes:
 

diff --git a/src/Stack/Options/GhciParser.hs b/src/Stack/Options/GhciParser.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
 module Stack.Options.GhciParser where
 
 import           Options.Applicative
@@ -27,12 +28,20 @@ ghciOptsParser = GhciOpts
                                     metavar "OPTIONS" <>
                                     completer ghcOptsCompleter <>
                                     help "Additional options passed to GHCi")))
-             <*> many
+
+             <*> (
+                 (\x y -> x ++ y)
+                 <$> flag
+                     []
+                     ["-Wall", "-Werror"]
+                     (long "pedantic" <> help "Turn on -Wall and -Werror")
+                 <*> many
                      (textOption
                           (long "ghc-options" <>
                            metavar "OPTIONS" <>
                            completer ghcOptsCompleter <>
                            help "Additional options passed to both GHC and GHCi"))
+             )
              <*> flagsParser
              <*> optional
                      (strOption (long "with-ghc" <>