Ec2Config.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.DataSync.Types.Ec2Config
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.DataSync.Types.Ec2Config where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude

-- | The subnet and security groups that DataSync uses to access your Amazon
-- EFS file system.
--
-- /See:/ 'newEc2Config' smart constructor.
data Ec2Config = Ec2Config'
  { -- | Specifies the ARN of a subnet where DataSync creates the
    -- <https://docs.aws.amazon.com/datasync/latest/userguide/datasync-network.html#required-network-interfaces network interfaces>
    -- for managing traffic during your transfer.
    --
    -- The subnet must be located:
    --
    -- -   In the same virtual private cloud (VPC) as the Amazon EFS file
    --     system.
    --
    -- -   In the same Availability Zone as at least one mount target for the
    --     Amazon EFS file system.
    --
    -- You don\'t need to specify a subnet that includes a file system mount
    -- target.
    subnetArn :: Prelude.Text,
    -- | Specifies the Amazon Resource Names (ARNs) of the security groups
    -- associated with an Amazon EFS file system\'s mount target.
    securityGroupArns :: Prelude.NonEmpty Prelude.Text
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'Ec2Config' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'subnetArn', 'ec2Config_subnetArn' - Specifies the ARN of a subnet where DataSync creates the
-- <https://docs.aws.amazon.com/datasync/latest/userguide/datasync-network.html#required-network-interfaces network interfaces>
-- for managing traffic during your transfer.
--
-- The subnet must be located:
--
-- -   In the same virtual private cloud (VPC) as the Amazon EFS file
--     system.
--
-- -   In the same Availability Zone as at least one mount target for the
--     Amazon EFS file system.
--
-- You don\'t need to specify a subnet that includes a file system mount
-- target.
--
-- 'securityGroupArns', 'ec2Config_securityGroupArns' - Specifies the Amazon Resource Names (ARNs) of the security groups
-- associated with an Amazon EFS file system\'s mount target.
newEc2Config ::
  -- | 'subnetArn'
  Prelude.Text ->
  -- | 'securityGroupArns'
  Prelude.NonEmpty Prelude.Text ->
  Ec2Config
newEc2Config pSubnetArn_ pSecurityGroupArns_ =
  Ec2Config'
    { subnetArn = pSubnetArn_,
      securityGroupArns =
        Lens.coerced Lens.# pSecurityGroupArns_
    }

-- | Specifies the ARN of a subnet where DataSync creates the
-- <https://docs.aws.amazon.com/datasync/latest/userguide/datasync-network.html#required-network-interfaces network interfaces>
-- for managing traffic during your transfer.
--
-- The subnet must be located:
--
-- -   In the same virtual private cloud (VPC) as the Amazon EFS file
--     system.
--
-- -   In the same Availability Zone as at least one mount target for the
--     Amazon EFS file system.
--
-- You don\'t need to specify a subnet that includes a file system mount
-- target.
ec2Config_subnetArn :: Lens.Lens' Ec2Config Prelude.Text
ec2Config_subnetArn = Lens.lens (\Ec2Config' {subnetArn} -> subnetArn) (\s@Ec2Config' {} a -> s {subnetArn = a} :: Ec2Config)

-- | Specifies the Amazon Resource Names (ARNs) of the security groups
-- associated with an Amazon EFS file system\'s mount target.
ec2Config_securityGroupArns :: Lens.Lens' Ec2Config (Prelude.NonEmpty Prelude.Text)
ec2Config_securityGroupArns = Lens.lens (\Ec2Config' {securityGroupArns} -> securityGroupArns) (\s@Ec2Config' {} a -> s {securityGroupArns = a} :: Ec2Config) Prelude.. Lens.coerced

instance Data.FromJSON Ec2Config where
  parseJSON =
    Data.withObject
      "Ec2Config"
      ( \x ->
          Ec2Config'
            Prelude.<$> (x Data..: "SubnetArn")
            Prelude.<*> (x Data..: "SecurityGroupArns")
      )

instance Prelude.Hashable Ec2Config where
  hashWithSalt _salt Ec2Config' {..} =
    _salt
      `Prelude.hashWithSalt` subnetArn
      `Prelude.hashWithSalt` securityGroupArns

instance Prelude.NFData Ec2Config where
  rnf Ec2Config' {..} =
    Prelude.rnf subnetArn
      `Prelude.seq` Prelude.rnf securityGroupArns

instance Data.ToJSON Ec2Config where
  toJSON Ec2Config' {..} =
    Data.object
      ( Prelude.catMaybes
          [ Prelude.Just ("SubnetArn" Data..= subnetArn),
            Prelude.Just
              ("SecurityGroupArns" Data..= securityGroupArns)
          ]
      )