{-# LANGUAGE NoImplicitPrelude #-}

{-# LANGUAGE OverloadedStrings #-}

module Stack.Options.GhciParser where

import Options.Applicative

import Options.Applicative.Args

import Options.Applicative.Builder.Extra

import Stack.Config (packagesParser)

import Stack.Ghci (GhciOpts (..))

import Stack.Options.BuildParser (flagsParser)

import Stack.Options.Completion

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.")