module Distribution.Types.TestSuite.Lens (
    TestSuite,
    module Distribution.Types.TestSuite.Lens,
    ) where

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

import Distribution.Types.BuildInfo           (BuildInfo)
import Distribution.Types.TestSuite           (TestSuite)
import Distribution.Types.TestSuiteInterface  (TestSuiteInterface)
import Distribution.Types.UnqualComponentName (UnqualComponentName)

import qualified Distribution.Types.TestSuite as T

testName :: Lens' TestSuite UnqualComponentName
testName :: Lens' TestSuite UnqualComponentName
testName UnqualComponentName -> f UnqualComponentName
f TestSuite
s = (UnqualComponentName -> TestSuite)
-> f UnqualComponentName -> f TestSuite
forall a b. (a -> b) -> f a -> f b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (\UnqualComponentName
x -> TestSuite
s { testName :: UnqualComponentName
T.testName = UnqualComponentName
x }) (UnqualComponentName -> f UnqualComponentName
f (TestSuite -> UnqualComponentName
T.testName TestSuite
s))
{-# INLINE testName #-}

testInterface :: Lens' TestSuite TestSuiteInterface
testInterface :: Lens' TestSuite TestSuiteInterface
testInterface TestSuiteInterface -> f TestSuiteInterface
f TestSuite
s = (TestSuiteInterface -> TestSuite)
-> f TestSuiteInterface -> f TestSuite
forall a b. (a -> b) -> f a -> f b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (\TestSuiteInterface
x -> TestSuite
s { testInterface :: TestSuiteInterface
T.testInterface = TestSuiteInterface
x }) (TestSuiteInterface -> f TestSuiteInterface
f (TestSuite -> TestSuiteInterface
T.testInterface TestSuite
s))
{-# INLINE testInterface #-}

testBuildInfo :: Lens' TestSuite BuildInfo
testBuildInfo :: Lens' TestSuite BuildInfo
testBuildInfo BuildInfo -> f BuildInfo
f TestSuite
s = (BuildInfo -> TestSuite) -> f BuildInfo -> f TestSuite
forall a b. (a -> b) -> f a -> f b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (\BuildInfo
x -> TestSuite
s { testBuildInfo :: BuildInfo
T.testBuildInfo = BuildInfo
x }) (BuildInfo -> f BuildInfo
f (TestSuite -> BuildInfo
T.testBuildInfo TestSuite
s))
{-# INLINE testBuildInfo #-}