{-# LANGUAGE NoImplicitPrelude #-}
module Stack.Options.HpcReportParser where
import qualified Data.Text as T
import Options.Applicative
import Options.Applicative.Builder.Extra
import Options.Applicative.Types (readerAsk)
import Stack.Coverage (HpcReportOpts (..))
import Stack.Options.Completion (targetCompleter)
import Stack.Prelude
import Stack.Types.Config
hpcReportOptsParser :: Parser HpcReportOpts
hpcReportOptsParser = HpcReportOpts
<$> many (textArgument $ metavar "TARGET_OR_TIX" <>
completer (targetCompleter <> fileExtCompleter [".tix"]))
<*> switch (long "all" <> help "Use results from all packages and components involved in previous --coverage run")
<*> optional (strOption (long "destdir" <>
metavar "DIR" <>
completer dirCompleter <>
help "Output directory for HTML report"))
<*> switch (long "open" <> help "Open the report in the browser")
pvpBoundsOption :: Parser PvpBounds
pvpBoundsOption =
option
readPvpBounds
(long "pvp-bounds" <>
metavar "PVP-BOUNDS" <>
completeWith ["none", "lower", "upper", "both"] <>
help
"How PVP version bounds should be added to .cabal file: none, lower, upper, both")
where
readPvpBounds = do
s <- readerAsk
case parsePvpBounds $ T.pack s of
Left e ->
readerError e
Right v ->
return v