Distribution/Types/TestSuite/Lens.hs

    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 f s = fmap (\x -> s { T.testName = x }) (f (T.testName s))
    {-# INLINE testName #-}

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

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