Add explicit import lists to Stack.Options.GhciParser

Also, some reformatting

Author: mpilgrem

src/Stack/Options/GhciParser.hs

@@ -4,58 +4,95 @@
 module Stack.Options.GhciParser where
 
 import           Options.Applicative
-import           Options.Applicative.Args
+                   ( Parser, completer, flag, help, idm, internal, long, metavar
+                   , strOption, switch
+                   )
+import           Options.Applicative.Args ( argsOption )
 import           Options.Applicative.Builder.Extra
-import           Stack.Config                      (packagesParser)
-import           Stack.Ghci                        (GhciOpts (..))
-import           Stack.Options.BuildParser         (flagsParser)
+                   ( boolFlags, boolFlagsNoDefault, fileExtCompleter
+                   , textArgument, textOption
+                   )
+import           Stack.Config ( packagesParser )
+import           Stack.Ghci ( GhciOpts (..) )
+import           Stack.Options.BuildParser ( flagsParser )
 import           Stack.Options.Completion
+                   ( ghcOptsCompleter, targetCompleter )
 import           Stack.Prelude
 
 -- | Parser for GHCI options
 ghciOptsParser :: Parser GhciOpts
 ghciOptsParser = GhciOpts
-             <$> many
-                   (textArgument
-                        (metavar "TARGET/FILE" <>
-                         completer (targetCompleter <> fileExtCompleter [".hs", ".lhs"]) <>
-                         help ("If none specified, use all local packages. " <>
-                               "See https://docs.haskellstack.org/en/stable/build_command/#target-syntax for details. " <>
-                               "If a path to a .hs or .lhs file is specified, it will be loaded.")))
-             <*> ((\x y -> x ++ concat y)
-                 <$> flag
-                     []
-                     ["-Wall", "-Werror"]
-                     (long "pedantic" <> help "Turn on -Wall and -Werror")
-                 <*> many (argsOption (long "ghci-options" <>
-                                    metavar "OPTIONS" <>
-                                    completer ghcOptsCompleter <>
-                                    help "Additional options passed to GHCi"))
-             )
-             <*> (concat <$> many
-                     (argsOption
-                          (long "ghc-options" <>
-                           metavar "OPTIONS" <>
-                           completer ghcOptsCompleter <>
-                           help "Additional options passed to both GHC and GHCi")))
-             <*> flagsParser
-             <*> optional
-                     (strOption (long "with-ghc" <>
-                                 metavar "GHC" <>
-                                 help "Use this GHC to run GHCi"))
-             <*> (not <$> boolFlags True "load" "load modules on start-up" idm)
-             <*> packagesParser
-             <*> optional
-                     (textOption
-                           (long "main-is" <>
-                            metavar "TARGET" <>
-                            completer targetCompleter <>
-                            help "Specify which target should contain the main \
-                                 \module to load, such as for an executable for \
-                                 \test suite or benchmark."))
-             <*> switch (long "load-local-deps" <> help "Load all local dependencies of your targets")
-             -- TODO: deprecate this? probably useless.
-             <*> switch (long "skip-intermediate-deps" <> help "Skip loading intermediate target dependencies" <> internal)
-             <*> optional (boolFlagsNoDefault "package-hiding" "package hiding" idm)
-             <*> switch (long "no-build" <> help "Don't build before launching GHCi" <> internal)
-             <*> switch (long "only-main" <> help "Only load and import the main module.  If no main module, no modules will be loaded.")
+  <$> many (textArgument
+        (  metavar "TARGET/FILE"
+        <> completer (targetCompleter <> fileExtCompleter [".hs", ".lhs"])
+        <> help "If none specified, use all local packages. See \
+                \https://docs.haskellstack.org/en/stable/build_command/#target-syntax \
+                \for details. If a path to a .hs or .lhs file is specified, it \
+                \will be loaded."
+        ))
+  <*> (     (\x y -> x ++ concat y)
+        <$> flag
+              []
+              ["-Wall", "-Werror"]
+              (  long "pedantic"
+              <> help "Turn on -Wall and -Werror"
+              )
+        <*> many (argsOption
+              (  long "ghci-options"
+              <> metavar "OPTIONS"
+              <> completer ghcOptsCompleter
+              <> help "Additional options passed to GHCi"
+              ))
+      )
+  <*> (     concat
+        <$> many (argsOption
+              (  long "ghc-options"
+              <> metavar "OPTIONS"
+              <> completer ghcOptsCompleter
+              <> help "Additional options passed to both GHC and GHCi"
+              ))
+      )
+  <*> flagsParser
+  <*> optional (strOption
+        (  long "with-ghc"
+        <> metavar "GHC"
+        <> help "Use this GHC to run GHCi"
+        ))
+  <*> (     not
+        <$> boolFlags True
+              "load"
+              "load modules on start-up"
+              idm
+      )
+  <*> packagesParser
+  <*> optional (textOption
+        (  long "main-is"
+        <> metavar "TARGET"
+        <> completer targetCompleter
+        <> help "Specify which target should contain the main module to load, \
+                \such as for an executable for test suite or benchmark."
+        ))
+  <*> switch
+        (  long "load-local-deps"
+        <> help "Load all local dependencies of your targets"
+        )
+  -- TODO: deprecate this? probably useless.
+  <*> switch
+        (  long "skip-intermediate-deps"
+        <> help "Skip loading intermediate target dependencies"
+        <> internal
+        )
+  <*> optional (boolFlagsNoDefault
+        "package-hiding"
+        "package hiding"
+        idm)
+  <*> switch
+        (  long "no-build"
+        <> help "Don't build before launching GHCi"
+        <> internal
+        )
+  <*> switch
+        (  long "only-main"
+        <> help "Only load and import the main module. If no main module, no \
+                \modules will be loaded."
+        )