Lens.hs

module Distribution.Client.BuildReports.Lens (
    BuildReport,
    module Distribution.Client.BuildReports.Lens,
) where

import Distribution.Client.Compat.Prelude
import Distribution.Compat.Lens
import Prelude ()

import Distribution.Client.BuildReports.Types (BuildReport, InstallOutcome, Outcome)
import Distribution.Compiler                  (CompilerId)
import Distribution.System                    (Arch, OS)
import Distribution.Types.Flag                (FlagAssignment)
import Distribution.Types.PackageId           (PackageIdentifier)

import qualified Distribution.Client.BuildReports.Types as T

package :: Lens' BuildReport PackageIdentifier
package f s = fmap (\x -> s { T.package = x }) (f (T.package s))

os :: Lens' BuildReport OS
os f s = fmap (\x -> s { T.os = x }) (f (T.os s))

arch :: Lens' BuildReport Arch
arch f s = fmap (\x -> s { T.arch = x }) (f (T.arch s))

compiler :: Lens' BuildReport CompilerId
compiler f s = fmap (\x -> s { T.compiler = x }) (f (T.compiler s))

client :: Lens' BuildReport PackageIdentifier
client f s = fmap (\x -> s { T.client = x }) (f (T.client s))

flagAssignment :: Lens' BuildReport FlagAssignment
flagAssignment f s = fmap (\x -> s { T.flagAssignment = x }) (f (T.flagAssignment s))

dependencies :: Lens' BuildReport [PackageIdentifier]
dependencies f s = fmap (\x -> s { T.dependencies = x }) (f (T.dependencies s))

installOutcome :: Lens' BuildReport InstallOutcome
installOutcome f s = fmap (\x -> s { T.installOutcome = x }) (f (T.installOutcome s))

docsOutcome :: Lens' BuildReport Outcome
docsOutcome f s = fmap (\x -> s { T.docsOutcome = x }) (f (T.docsOutcome s))

testsOutcome :: Lens' BuildReport Outcome
testsOutcome f s = fmap (\x -> s { T.testsOutcome = x }) (f (T.testsOutcome s))