{-# LANGUAGE NoImplicitPrelude #-}

{-# LANGUAGE RecordWildCards #-}

-- | Build configuration

module Stack.Config.Build where

import Stack.Prelude

import Stack.Types.Config

-- | Interprets BuildOptsMonoid options.

buildOptsFromMonoid :: BuildOptsMonoid -> BuildOpts

buildOptsFromMonoid BuildOptsMonoid{..} = BuildOpts

{ boptsLibProfile = fromFirstFalse

(buildMonoidLibProfile <>

FirstFalse (if tracing || profiling then Just True else Nothing))

, boptsExeProfile = fromFirstFalse

(buildMonoidExeProfile <>

FirstFalse (if tracing || profiling then Just True else Nothing))

, boptsLibStrip = fromFirstTrue

(buildMonoidLibStrip <>

FirstTrue (if noStripping then Just False else Nothing))

, boptsExeStrip = fromFirstTrue

(buildMonoidExeStrip <>

FirstTrue (if noStripping then Just False else Nothing))

, boptsHaddock = fromFirstFalse buildMonoidHaddock

, boptsHaddockOpts = haddockOptsFromMonoid buildMonoidHaddockOpts

, boptsOpenHaddocks = fromFirstFalse buildMonoidOpenHaddocks

, boptsHaddockDeps = getFirst buildMonoidHaddockDeps

, boptsHaddockInternal = fromFirstFalse buildMonoidHaddockInternal

, boptsHaddockHyperlinkSource = fromFirstTrue buildMonoidHaddockHyperlinkSource

, boptsInstallExes = fromFirstFalse buildMonoidInstallExes

, boptsInstallCompilerTool = fromFirstFalse buildMonoidInstallCompilerTool

, boptsPreFetch = fromFirstFalse buildMonoidPreFetch

, boptsKeepGoing = getFirst buildMonoidKeepGoing

, boptsKeepTmpFiles = fromFirstFalse buildMonoidKeepTmpFiles

, boptsForceDirty = fromFirstFalse buildMonoidForceDirty

, boptsTests = fromFirstFalse buildMonoidTests

, boptsTestOpts =

testOptsFromMonoid buildMonoidTestOpts additionalArgs

, boptsBenchmarks = fromFirstFalse buildMonoidBenchmarks

, boptsBenchmarkOpts =

benchmarkOptsFromMonoid buildMonoidBenchmarkOpts additionalArgs

, boptsReconfigure = fromFirstFalse buildMonoidReconfigure

, boptsCabalVerbose = fromFirstFalse buildMonoidCabalVerbose

, boptsSplitObjs = fromFirstFalse buildMonoidSplitObjs

, boptsSkipComponents = buildMonoidSkipComponents

, boptsInterleavedOutput = fromFirstTrue buildMonoidInterleavedOutput

, boptsDdumpDir = getFirst buildMonoidDdumpDir

}

where

-- These options are not directly used in bopts, instead they

-- transform other options.

tracing = getAny buildMonoidTrace

profiling = getAny buildMonoidProfile

noStripping = getAny buildMonoidNoStrip

-- Additional args for tracing / profiling

additionalArgs =

if tracing || profiling

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

else Nothing

trac =

if tracing

then Just "-xc"

else Nothing

prof =

if profiling

then Just "-p"

else Nothing

haddockOptsFromMonoid :: HaddockOptsMonoid -> HaddockOpts

haddockOptsFromMonoid HaddockOptsMonoid{..} =

defaultHaddockOpts

{hoAdditionalArgs = hoMonoidAdditionalArgs}

testOptsFromMonoid :: TestOptsMonoid -> Maybe [String] -> TestOpts

testOptsFromMonoid TestOptsMonoid{..} madditional =

defaultTestOpts

{ toRerunTests = fromFirstTrue toMonoidRerunTests

, toAdditionalArgs = fromMaybe [] madditional <> toMonoidAdditionalArgs

, toCoverage = fromFirstFalse toMonoidCoverage

, toDisableRun = fromFirstFalse toMonoidDisableRun

, toMaximumTimeSeconds = fromFirst (toMaximumTimeSeconds defaultTestOpts) toMonoidMaximumTimeSeconds

}

benchmarkOptsFromMonoid :: BenchmarkOptsMonoid -> Maybe [String] -> BenchmarkOpts

benchmarkOptsFromMonoid BenchmarkOptsMonoid{..} madditional =

defaultBenchmarkOpts

{ beoAdditionalArgs =

fmap (\args -> unwords args <> " ") madditional <>

getFirst beoMonoidAdditionalArgs

, beoDisableRun = fromFirst

(beoDisableRun defaultBenchmarkOpts)

beoMonoidDisableRun

}