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

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

-- |
-- Module      : Amazonka.EC2.AssociateSubnetCidrBlock
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Associates a CIDR block with your subnet. You can only associate a
-- single IPv6 CIDR block with your subnet. An IPv6 CIDR block must have a
-- prefix length of \/64.
module Amazonka.EC2.AssociateSubnetCidrBlock
  ( -- * Creating a Request
    AssociateSubnetCidrBlock (..),
    newAssociateSubnetCidrBlock,

    -- * Request Lenses
    associateSubnetCidrBlock_ipv6CidrBlock,
    associateSubnetCidrBlock_subnetId,

    -- * Destructuring the Response
    AssociateSubnetCidrBlockResponse (..),
    newAssociateSubnetCidrBlockResponse,

    -- * Response Lenses
    associateSubnetCidrBlockResponse_ipv6CidrBlockAssociation,
    associateSubnetCidrBlockResponse_subnetId,
    associateSubnetCidrBlockResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newAssociateSubnetCidrBlock' smart constructor.
data AssociateSubnetCidrBlock = AssociateSubnetCidrBlock'
  { -- | The IPv6 CIDR block for your subnet. The subnet must have a \/64 prefix
    -- length.
    AssociateSubnetCidrBlock -> Text
ipv6CidrBlock :: Prelude.Text,
    -- | The ID of your subnet.
    AssociateSubnetCidrBlock -> Text
subnetId :: Prelude.Text
  }
  deriving (AssociateSubnetCidrBlock -> AssociateSubnetCidrBlock -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AssociateSubnetCidrBlock -> AssociateSubnetCidrBlock -> Bool
$c/= :: AssociateSubnetCidrBlock -> AssociateSubnetCidrBlock -> Bool
== :: AssociateSubnetCidrBlock -> AssociateSubnetCidrBlock -> Bool
$c== :: AssociateSubnetCidrBlock -> AssociateSubnetCidrBlock -> Bool
Prelude.Eq, ReadPrec [AssociateSubnetCidrBlock]
ReadPrec AssociateSubnetCidrBlock
Int -> ReadS AssociateSubnetCidrBlock
ReadS [AssociateSubnetCidrBlock]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AssociateSubnetCidrBlock]
$creadListPrec :: ReadPrec [AssociateSubnetCidrBlock]
readPrec :: ReadPrec AssociateSubnetCidrBlock
$creadPrec :: ReadPrec AssociateSubnetCidrBlock
readList :: ReadS [AssociateSubnetCidrBlock]
$creadList :: ReadS [AssociateSubnetCidrBlock]
readsPrec :: Int -> ReadS AssociateSubnetCidrBlock
$creadsPrec :: Int -> ReadS AssociateSubnetCidrBlock
Prelude.Read, Int -> AssociateSubnetCidrBlock -> ShowS
[AssociateSubnetCidrBlock] -> ShowS
AssociateSubnetCidrBlock -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AssociateSubnetCidrBlock] -> ShowS
$cshowList :: [AssociateSubnetCidrBlock] -> ShowS
show :: AssociateSubnetCidrBlock -> String
$cshow :: AssociateSubnetCidrBlock -> String
showsPrec :: Int -> AssociateSubnetCidrBlock -> ShowS
$cshowsPrec :: Int -> AssociateSubnetCidrBlock -> ShowS
Prelude.Show, forall x.
Rep AssociateSubnetCidrBlock x -> AssociateSubnetCidrBlock
forall x.
AssociateSubnetCidrBlock -> Rep AssociateSubnetCidrBlock x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AssociateSubnetCidrBlock x -> AssociateSubnetCidrBlock
$cfrom :: forall x.
AssociateSubnetCidrBlock -> Rep AssociateSubnetCidrBlock x
Prelude.Generic)

-- |
-- Create a value of 'AssociateSubnetCidrBlock' 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:
--
-- 'ipv6CidrBlock', 'associateSubnetCidrBlock_ipv6CidrBlock' - The IPv6 CIDR block for your subnet. The subnet must have a \/64 prefix
-- length.
--
-- 'subnetId', 'associateSubnetCidrBlock_subnetId' - The ID of your subnet.
newAssociateSubnetCidrBlock ::
  -- | 'ipv6CidrBlock'
  Prelude.Text ->
  -- | 'subnetId'
  Prelude.Text ->
  AssociateSubnetCidrBlock
newAssociateSubnetCidrBlock :: Text -> Text -> AssociateSubnetCidrBlock
newAssociateSubnetCidrBlock
  Text
pIpv6CidrBlock_
  Text
pSubnetId_ =
    AssociateSubnetCidrBlock'
      { $sel:ipv6CidrBlock:AssociateSubnetCidrBlock' :: Text
ipv6CidrBlock =
          Text
pIpv6CidrBlock_,
        $sel:subnetId:AssociateSubnetCidrBlock' :: Text
subnetId = Text
pSubnetId_
      }

-- | The IPv6 CIDR block for your subnet. The subnet must have a \/64 prefix
-- length.
associateSubnetCidrBlock_ipv6CidrBlock :: Lens.Lens' AssociateSubnetCidrBlock Prelude.Text
associateSubnetCidrBlock_ipv6CidrBlock :: Lens' AssociateSubnetCidrBlock Text
associateSubnetCidrBlock_ipv6CidrBlock = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssociateSubnetCidrBlock' {Text
ipv6CidrBlock :: Text
$sel:ipv6CidrBlock:AssociateSubnetCidrBlock' :: AssociateSubnetCidrBlock -> Text
ipv6CidrBlock} -> Text
ipv6CidrBlock) (\s :: AssociateSubnetCidrBlock
s@AssociateSubnetCidrBlock' {} Text
a -> AssociateSubnetCidrBlock
s {$sel:ipv6CidrBlock:AssociateSubnetCidrBlock' :: Text
ipv6CidrBlock = Text
a} :: AssociateSubnetCidrBlock)

-- | The ID of your subnet.
associateSubnetCidrBlock_subnetId :: Lens.Lens' AssociateSubnetCidrBlock Prelude.Text
associateSubnetCidrBlock_subnetId :: Lens' AssociateSubnetCidrBlock Text
associateSubnetCidrBlock_subnetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssociateSubnetCidrBlock' {Text
subnetId :: Text
$sel:subnetId:AssociateSubnetCidrBlock' :: AssociateSubnetCidrBlock -> Text
subnetId} -> Text
subnetId) (\s :: AssociateSubnetCidrBlock
s@AssociateSubnetCidrBlock' {} Text
a -> AssociateSubnetCidrBlock
s {$sel:subnetId:AssociateSubnetCidrBlock' :: Text
subnetId = Text
a} :: AssociateSubnetCidrBlock)

instance Core.AWSRequest AssociateSubnetCidrBlock where
  type
    AWSResponse AssociateSubnetCidrBlock =
      AssociateSubnetCidrBlockResponse
  request :: (Service -> Service)
-> AssociateSubnetCidrBlock -> Request AssociateSubnetCidrBlock
request Service -> Service
overrides =
    forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AssociateSubnetCidrBlock
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse AssociateSubnetCidrBlock)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Maybe SubnetIpv6CidrBlockAssociation
-> Maybe Text -> Int -> AssociateSubnetCidrBlockResponse
AssociateSubnetCidrBlockResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ipv6CidrBlockAssociation")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"subnetId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable AssociateSubnetCidrBlock where
  hashWithSalt :: Int -> AssociateSubnetCidrBlock -> Int
hashWithSalt Int
_salt AssociateSubnetCidrBlock' {Text
subnetId :: Text
ipv6CidrBlock :: Text
$sel:subnetId:AssociateSubnetCidrBlock' :: AssociateSubnetCidrBlock -> Text
$sel:ipv6CidrBlock:AssociateSubnetCidrBlock' :: AssociateSubnetCidrBlock -> Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
ipv6CidrBlock
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
subnetId

instance Prelude.NFData AssociateSubnetCidrBlock where
  rnf :: AssociateSubnetCidrBlock -> ()
rnf AssociateSubnetCidrBlock' {Text
subnetId :: Text
ipv6CidrBlock :: Text
$sel:subnetId:AssociateSubnetCidrBlock' :: AssociateSubnetCidrBlock -> Text
$sel:ipv6CidrBlock:AssociateSubnetCidrBlock' :: AssociateSubnetCidrBlock -> Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Text
ipv6CidrBlock
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
subnetId

instance Data.ToHeaders AssociateSubnetCidrBlock where
  toHeaders :: AssociateSubnetCidrBlock -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

instance Data.ToPath AssociateSubnetCidrBlock where
  toPath :: AssociateSubnetCidrBlock -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery AssociateSubnetCidrBlock where
  toQuery :: AssociateSubnetCidrBlock -> QueryString
toQuery AssociateSubnetCidrBlock' {Text
subnetId :: Text
ipv6CidrBlock :: Text
$sel:subnetId:AssociateSubnetCidrBlock' :: AssociateSubnetCidrBlock -> Text
$sel:ipv6CidrBlock:AssociateSubnetCidrBlock' :: AssociateSubnetCidrBlock -> Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"AssociateSubnetCidrBlock" :: Prelude.ByteString),
        ByteString
"Version"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
        ByteString
"Ipv6CidrBlock" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
ipv6CidrBlock,
        ByteString
"SubnetId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
subnetId
      ]

-- | /See:/ 'newAssociateSubnetCidrBlockResponse' smart constructor.
data AssociateSubnetCidrBlockResponse = AssociateSubnetCidrBlockResponse'
  { -- | Information about the IPv6 association.
    AssociateSubnetCidrBlockResponse
-> Maybe SubnetIpv6CidrBlockAssociation
ipv6CidrBlockAssociation :: Prelude.Maybe SubnetIpv6CidrBlockAssociation,
    -- | The ID of the subnet.
    AssociateSubnetCidrBlockResponse -> Maybe Text
subnetId :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    AssociateSubnetCidrBlockResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (AssociateSubnetCidrBlockResponse
-> AssociateSubnetCidrBlockResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AssociateSubnetCidrBlockResponse
-> AssociateSubnetCidrBlockResponse -> Bool
$c/= :: AssociateSubnetCidrBlockResponse
-> AssociateSubnetCidrBlockResponse -> Bool
== :: AssociateSubnetCidrBlockResponse
-> AssociateSubnetCidrBlockResponse -> Bool
$c== :: AssociateSubnetCidrBlockResponse
-> AssociateSubnetCidrBlockResponse -> Bool
Prelude.Eq, ReadPrec [AssociateSubnetCidrBlockResponse]
ReadPrec AssociateSubnetCidrBlockResponse
Int -> ReadS AssociateSubnetCidrBlockResponse
ReadS [AssociateSubnetCidrBlockResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AssociateSubnetCidrBlockResponse]
$creadListPrec :: ReadPrec [AssociateSubnetCidrBlockResponse]
readPrec :: ReadPrec AssociateSubnetCidrBlockResponse
$creadPrec :: ReadPrec AssociateSubnetCidrBlockResponse
readList :: ReadS [AssociateSubnetCidrBlockResponse]
$creadList :: ReadS [AssociateSubnetCidrBlockResponse]
readsPrec :: Int -> ReadS AssociateSubnetCidrBlockResponse
$creadsPrec :: Int -> ReadS AssociateSubnetCidrBlockResponse
Prelude.Read, Int -> AssociateSubnetCidrBlockResponse -> ShowS
[AssociateSubnetCidrBlockResponse] -> ShowS
AssociateSubnetCidrBlockResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AssociateSubnetCidrBlockResponse] -> ShowS
$cshowList :: [AssociateSubnetCidrBlockResponse] -> ShowS
show :: AssociateSubnetCidrBlockResponse -> String
$cshow :: AssociateSubnetCidrBlockResponse -> String
showsPrec :: Int -> AssociateSubnetCidrBlockResponse -> ShowS
$cshowsPrec :: Int -> AssociateSubnetCidrBlockResponse -> ShowS
Prelude.Show, forall x.
Rep AssociateSubnetCidrBlockResponse x
-> AssociateSubnetCidrBlockResponse
forall x.
AssociateSubnetCidrBlockResponse
-> Rep AssociateSubnetCidrBlockResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AssociateSubnetCidrBlockResponse x
-> AssociateSubnetCidrBlockResponse
$cfrom :: forall x.
AssociateSubnetCidrBlockResponse
-> Rep AssociateSubnetCidrBlockResponse x
Prelude.Generic)

-- |
-- Create a value of 'AssociateSubnetCidrBlockResponse' 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:
--
-- 'ipv6CidrBlockAssociation', 'associateSubnetCidrBlockResponse_ipv6CidrBlockAssociation' - Information about the IPv6 association.
--
-- 'subnetId', 'associateSubnetCidrBlockResponse_subnetId' - The ID of the subnet.
--
-- 'httpStatus', 'associateSubnetCidrBlockResponse_httpStatus' - The response's http status code.
newAssociateSubnetCidrBlockResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  AssociateSubnetCidrBlockResponse
newAssociateSubnetCidrBlockResponse :: Int -> AssociateSubnetCidrBlockResponse
newAssociateSubnetCidrBlockResponse Int
pHttpStatus_ =
  AssociateSubnetCidrBlockResponse'
    { $sel:ipv6CidrBlockAssociation:AssociateSubnetCidrBlockResponse' :: Maybe SubnetIpv6CidrBlockAssociation
ipv6CidrBlockAssociation =
        forall a. Maybe a
Prelude.Nothing,
      $sel:subnetId:AssociateSubnetCidrBlockResponse' :: Maybe Text
subnetId = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:AssociateSubnetCidrBlockResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Information about the IPv6 association.
associateSubnetCidrBlockResponse_ipv6CidrBlockAssociation :: Lens.Lens' AssociateSubnetCidrBlockResponse (Prelude.Maybe SubnetIpv6CidrBlockAssociation)
associateSubnetCidrBlockResponse_ipv6CidrBlockAssociation :: Lens'
  AssociateSubnetCidrBlockResponse
  (Maybe SubnetIpv6CidrBlockAssociation)
associateSubnetCidrBlockResponse_ipv6CidrBlockAssociation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssociateSubnetCidrBlockResponse' {Maybe SubnetIpv6CidrBlockAssociation
ipv6CidrBlockAssociation :: Maybe SubnetIpv6CidrBlockAssociation
$sel:ipv6CidrBlockAssociation:AssociateSubnetCidrBlockResponse' :: AssociateSubnetCidrBlockResponse
-> Maybe SubnetIpv6CidrBlockAssociation
ipv6CidrBlockAssociation} -> Maybe SubnetIpv6CidrBlockAssociation
ipv6CidrBlockAssociation) (\s :: AssociateSubnetCidrBlockResponse
s@AssociateSubnetCidrBlockResponse' {} Maybe SubnetIpv6CidrBlockAssociation
a -> AssociateSubnetCidrBlockResponse
s {$sel:ipv6CidrBlockAssociation:AssociateSubnetCidrBlockResponse' :: Maybe SubnetIpv6CidrBlockAssociation
ipv6CidrBlockAssociation = Maybe SubnetIpv6CidrBlockAssociation
a} :: AssociateSubnetCidrBlockResponse)

-- | The ID of the subnet.
associateSubnetCidrBlockResponse_subnetId :: Lens.Lens' AssociateSubnetCidrBlockResponse (Prelude.Maybe Prelude.Text)
associateSubnetCidrBlockResponse_subnetId :: Lens' AssociateSubnetCidrBlockResponse (Maybe Text)
associateSubnetCidrBlockResponse_subnetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssociateSubnetCidrBlockResponse' {Maybe Text
subnetId :: Maybe Text
$sel:subnetId:AssociateSubnetCidrBlockResponse' :: AssociateSubnetCidrBlockResponse -> Maybe Text
subnetId} -> Maybe Text
subnetId) (\s :: AssociateSubnetCidrBlockResponse
s@AssociateSubnetCidrBlockResponse' {} Maybe Text
a -> AssociateSubnetCidrBlockResponse
s {$sel:subnetId:AssociateSubnetCidrBlockResponse' :: Maybe Text
subnetId = Maybe Text
a} :: AssociateSubnetCidrBlockResponse)

-- | The response's http status code.
associateSubnetCidrBlockResponse_httpStatus :: Lens.Lens' AssociateSubnetCidrBlockResponse Prelude.Int
associateSubnetCidrBlockResponse_httpStatus :: Lens' AssociateSubnetCidrBlockResponse Int
associateSubnetCidrBlockResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssociateSubnetCidrBlockResponse' {Int
httpStatus :: Int
$sel:httpStatus:AssociateSubnetCidrBlockResponse' :: AssociateSubnetCidrBlockResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AssociateSubnetCidrBlockResponse
s@AssociateSubnetCidrBlockResponse' {} Int
a -> AssociateSubnetCidrBlockResponse
s {$sel:httpStatus:AssociateSubnetCidrBlockResponse' :: Int
httpStatus = Int
a} :: AssociateSubnetCidrBlockResponse)

instance
  Prelude.NFData
    AssociateSubnetCidrBlockResponse
  where
  rnf :: AssociateSubnetCidrBlockResponse -> ()
rnf AssociateSubnetCidrBlockResponse' {Int
Maybe Text
Maybe SubnetIpv6CidrBlockAssociation
httpStatus :: Int
subnetId :: Maybe Text
ipv6CidrBlockAssociation :: Maybe SubnetIpv6CidrBlockAssociation
$sel:httpStatus:AssociateSubnetCidrBlockResponse' :: AssociateSubnetCidrBlockResponse -> Int
$sel:subnetId:AssociateSubnetCidrBlockResponse' :: AssociateSubnetCidrBlockResponse -> Maybe Text
$sel:ipv6CidrBlockAssociation:AssociateSubnetCidrBlockResponse' :: AssociateSubnetCidrBlockResponse
-> Maybe SubnetIpv6CidrBlockAssociation
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe SubnetIpv6CidrBlockAssociation
ipv6CidrBlockAssociation
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
subnetId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus