module Distribution.Types.PackageId.Lens (
PackageIdentifier,
module Distribution.Types.PackageId.Lens,
) where
import Distribution.Compat.Lens
import Distribution.Compat.Prelude
import Prelude ()
import Distribution.Types.PackageId (PackageIdentifier)
import Distribution.Types.PackageName (PackageName)
import Distribution.Version (Version)
import qualified Distribution.Types.PackageId as T
pkgName :: Lens' PackageIdentifier PackageName
pkgName f s = fmap (\x -> s { T.pkgName = x }) (f (T.pkgName s))
pkgVersion :: Lens' PackageIdentifier Version
pkgVersion f s = fmap (\x -> s { T.pkgVersion = x }) (f (T.pkgVersion s))