Lens.hs

module Distribution.Types.SourceRepo.Lens
  ( T.SourceRepo
  , module Distribution.Types.SourceRepo.Lens
  ) where

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

import Distribution.Types.SourceRepo (RepoKind, RepoType, SourceRepo)
import qualified Distribution.Types.SourceRepo as T

repoKind :: Lens' SourceRepo RepoKind
repoKind f s = fmap (\x -> s{T.repoKind = x}) (f (T.repoKind s))
{-# INLINE repoKind #-}

repoType :: Lens' SourceRepo (Maybe RepoType)
repoType f s = fmap (\x -> s{T.repoType = x}) (f (T.repoType s))
{-# INLINE repoType #-}

repoLocation :: Lens' SourceRepo (Maybe String)
repoLocation f s = fmap (\x -> s{T.repoLocation = x}) (f (T.repoLocation s))
{-# INLINE repoLocation #-}

repoModule :: Lens' SourceRepo (Maybe String)
repoModule f s = fmap (\x -> s{T.repoModule = x}) (f (T.repoModule s))
{-# INLINE repoModule #-}

repoBranch :: Lens' SourceRepo (Maybe String)
repoBranch f s = fmap (\x -> s{T.repoBranch = x}) (f (T.repoBranch s))
{-# INLINE repoBranch #-}

repoTag :: Lens' SourceRepo (Maybe String)
repoTag f s = fmap (\x -> s{T.repoTag = x}) (f (T.repoTag s))
{-# INLINE repoTag #-}

repoSubdir :: Lens' SourceRepo (Maybe FilePath)
repoSubdir f s = fmap (\x -> s{T.repoSubdir = x}) (f (T.repoSubdir s))
{-# INLINE repoSubdir #-}