{-# LANGUAGE NoImplicitPrelude #-}

module Stack.Options.HpcReportParser

( hpcReportOptsParser

, pvpBoundsOption

) where

import qualified Data.Text as T

import Options.Applicative

( Parser, completer, completeWith, help, long, metavar

, option, readerError, strOption, switch

)

import Options.Applicative.Builder.Extra

( dirCompleter, fileExtCompleter, textArgument )

import Options.Applicative.Types ( readerAsk )

import Stack.Coverage ( HpcReportOpts (..) )

import Stack.Options.Completion ( targetCompleter )

import Stack.Prelude

import Stack.Types.Config ( PvpBounds, parsePvpBounds )

-- | Parser for @stack hpc report@.

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 -> pure v