{-# 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 #-}
module Amazonka.EC2.AssociateSubnetCidrBlock
(
AssociateSubnetCidrBlock (..),
newAssociateSubnetCidrBlock,
associateSubnetCidrBlock_ipv6CidrBlock,
associateSubnetCidrBlock_subnetId,
AssociateSubnetCidrBlockResponse (..),
newAssociateSubnetCidrBlockResponse,
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
data AssociateSubnetCidrBlock = AssociateSubnetCidrBlock'
{
AssociateSubnetCidrBlock -> Text
ipv6CidrBlock :: Prelude.Text,
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)
newAssociateSubnetCidrBlock ::
Prelude.Text ->
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_
}
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)
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
]
data AssociateSubnetCidrBlockResponse = AssociateSubnetCidrBlockResponse'
{
AssociateSubnetCidrBlockResponse
-> Maybe SubnetIpv6CidrBlockAssociation
ipv6CidrBlockAssociation :: Prelude.Maybe SubnetIpv6CidrBlockAssociation,
AssociateSubnetCidrBlockResponse -> Maybe Text
subnetId :: Prelude.Maybe Prelude.Text,
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)
newAssociateSubnetCidrBlockResponse ::
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_
}
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)
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)
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