module Stack.Options.BuildMonoidParser where

import Data.Maybe (catMaybes)

import Data.Monoid.Extra

import Options.Applicative

import Options.Applicative.Builder.Extra

import Stack.Build (splitObjsWarning)

import Stack.Options.BenchParser

import Stack.Options.TestParser

import Stack.Options.HaddockParser

import Stack.Options.Utils

import Stack.Types.Config.Build

buildOptsMonoidParser :: Bool -> Parser BuildOptsMonoid

buildOptsMonoidParser hide0 =

transform <$> trace <*> profile <*> options

where

hide =

hideMods hide0

transform tracing profiling =

enable

where

enable opts

| tracing || profiling =

opts

{ buildMonoidLibProfile = First (Just True)

, buildMonoidExeProfile = First (Just True)

, buildMonoidBenchmarkOpts = bopts

{ beoMonoidAdditionalArgs = First (getFirst (beoMonoidAdditionalArgs bopts) <>

Just (" " <> unwords additionalArgs))

}

, buildMonoidTestOpts = topts

{ toMonoidAdditionalArgs = toMonoidAdditionalArgs topts <>

additionalArgs

}

}

| otherwise =

opts

where

bopts =

buildMonoidBenchmarkOpts opts

topts =

buildMonoidTestOpts opts

additionalArgs =

"+RTS" : catMaybes [trac, prof, Just "-RTS"]

trac =

if tracing

then Just "-xc"

else Nothing

prof =

if profiling

then Just "-p"

else Nothing

profile =

flag

False

True

(long "profile" <>

help

"Enable profiling in libraries, executables, etc. \

\for all expressions and generate a profiling report\

\ in tests or benchmarks" <>

hide)

trace =

flag

False

True

(long "trace" <>

help

"Enable profiling in libraries, executables, etc. \

\for all expressions and generate a backtrace on \

\exception" <>

hide)

options =

BuildOptsMonoid <$> libProfiling <*> exeProfiling <*> haddock <*>

haddockOptsParser hide0 <*> openHaddocks <*> haddockDeps <*>

haddockInternal <*> copyBins <*> preFetch <*> keepGoing <*>

forceDirty <*> tests <*> testOptsParser hide0 <*> benches <*>

benchOptsParser hide0 <*> reconfigure <*>

cabalVerbose <*> splitObjs

libProfiling =

firstBoolFlags

"library-profiling"

"library profiling for TARGETs and all its dependencies"

hide

exeProfiling =

firstBoolFlags

"executable-profiling"

"executable profiling for TARGETs and all its dependencies"

hide

haddock =

firstBoolFlags

"haddock"

"generating Haddocks the package(s) in this directory/configuration"

hide

openHaddocks =

firstBoolFlags

"open"

"opening the local Haddock documentation in the browser"

hide

haddockDeps =

firstBoolFlags "haddock-deps" "building Haddocks for dependencies" hide

haddockInternal =

firstBoolFlags

"haddock-internal"

"building Haddocks for internal modules (like cabal haddock --internal)"

hide

copyBins =

firstBoolFlags

"copy-bins"

"copying binaries to the local-bin-path (see 'stack path')"

hide

keepGoing =

firstBoolFlags

"keep-going"

"continue running after a step fails (default: false for build, true for test/bench)"

hide

preFetch =

firstBoolFlags

"prefetch"

"Fetch packages necessary for the build immediately, useful with --dry-run"

hide

forceDirty =

firstBoolFlags

"force-dirty"

"Force treating all local packages as having dirty files (useful for cases where stack can't detect a file change"

hide

tests =

firstBoolFlags

"test"

"testing the package(s) in this directory/configuration"

hide

benches =

firstBoolFlags

"bench"

"benchmarking the package(s) in this directory/configuration"

hide

reconfigure =

firstBoolFlags

"reconfigure"

"Perform the configure step even if unnecessary. Useful in some corner cases with custom Setup.hs files"

hide

cabalVerbose =

firstBoolFlags

"cabal-verbose"

"Ask Cabal to be verbose in its output"

hide

splitObjs =

firstBoolFlags

"split-objs"

("Enable split-objs, to reduce output size (at the cost of build time). " ++ splitObjsWarning)

hide