{-# 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.WorkSpacesWeb.UpdateNetworkSettings
(
UpdateNetworkSettings (..),
newUpdateNetworkSettings,
updateNetworkSettings_clientToken,
updateNetworkSettings_securityGroupIds,
updateNetworkSettings_subnetIds,
updateNetworkSettings_vpcId,
updateNetworkSettings_networkSettingsArn,
UpdateNetworkSettingsResponse (..),
newUpdateNetworkSettingsResponse,
updateNetworkSettingsResponse_httpStatus,
updateNetworkSettingsResponse_networkSettings,
)
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
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.WorkSpacesWeb.Types
data UpdateNetworkSettings = UpdateNetworkSettings'
{
UpdateNetworkSettings -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
UpdateNetworkSettings -> Maybe (NonEmpty Text)
securityGroupIds :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
UpdateNetworkSettings -> Maybe (NonEmpty Text)
subnetIds :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
UpdateNetworkSettings -> Maybe Text
vpcId :: Prelude.Maybe Prelude.Text,
UpdateNetworkSettings -> Text
networkSettingsArn :: Prelude.Text
}
deriving (UpdateNetworkSettings -> UpdateNetworkSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateNetworkSettings -> UpdateNetworkSettings -> Bool
$c/= :: UpdateNetworkSettings -> UpdateNetworkSettings -> Bool
== :: UpdateNetworkSettings -> UpdateNetworkSettings -> Bool
$c== :: UpdateNetworkSettings -> UpdateNetworkSettings -> Bool
Prelude.Eq, ReadPrec [UpdateNetworkSettings]
ReadPrec UpdateNetworkSettings
Int -> ReadS UpdateNetworkSettings
ReadS [UpdateNetworkSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateNetworkSettings]
$creadListPrec :: ReadPrec [UpdateNetworkSettings]
readPrec :: ReadPrec UpdateNetworkSettings
$creadPrec :: ReadPrec UpdateNetworkSettings
readList :: ReadS [UpdateNetworkSettings]
$creadList :: ReadS [UpdateNetworkSettings]
readsPrec :: Int -> ReadS UpdateNetworkSettings
$creadsPrec :: Int -> ReadS UpdateNetworkSettings
Prelude.Read, Int -> UpdateNetworkSettings -> ShowS
[UpdateNetworkSettings] -> ShowS
UpdateNetworkSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateNetworkSettings] -> ShowS
$cshowList :: [UpdateNetworkSettings] -> ShowS
show :: UpdateNetworkSettings -> String
$cshow :: UpdateNetworkSettings -> String
showsPrec :: Int -> UpdateNetworkSettings -> ShowS
$cshowsPrec :: Int -> UpdateNetworkSettings -> ShowS
Prelude.Show, forall x. Rep UpdateNetworkSettings x -> UpdateNetworkSettings
forall x. UpdateNetworkSettings -> Rep UpdateNetworkSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateNetworkSettings x -> UpdateNetworkSettings
$cfrom :: forall x. UpdateNetworkSettings -> Rep UpdateNetworkSettings x
Prelude.Generic)
newUpdateNetworkSettings ::
Prelude.Text ->
UpdateNetworkSettings
newUpdateNetworkSettings :: Text -> UpdateNetworkSettings
newUpdateNetworkSettings Text
pNetworkSettingsArn_ =
UpdateNetworkSettings'
{ $sel:clientToken:UpdateNetworkSettings' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:securityGroupIds:UpdateNetworkSettings' :: Maybe (NonEmpty Text)
securityGroupIds = forall a. Maybe a
Prelude.Nothing,
$sel:subnetIds:UpdateNetworkSettings' :: Maybe (NonEmpty Text)
subnetIds = forall a. Maybe a
Prelude.Nothing,
$sel:vpcId:UpdateNetworkSettings' :: Maybe Text
vpcId = forall a. Maybe a
Prelude.Nothing,
$sel:networkSettingsArn:UpdateNetworkSettings' :: Text
networkSettingsArn = Text
pNetworkSettingsArn_
}
updateNetworkSettings_clientToken :: Lens.Lens' UpdateNetworkSettings (Prelude.Maybe Prelude.Text)
updateNetworkSettings_clientToken :: Lens' UpdateNetworkSettings (Maybe Text)
updateNetworkSettings_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateNetworkSettings' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: UpdateNetworkSettings
s@UpdateNetworkSettings' {} Maybe Text
a -> UpdateNetworkSettings
s {$sel:clientToken:UpdateNetworkSettings' :: Maybe Text
clientToken = Maybe Text
a} :: UpdateNetworkSettings)
updateNetworkSettings_securityGroupIds :: Lens.Lens' UpdateNetworkSettings (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
updateNetworkSettings_securityGroupIds :: Lens' UpdateNetworkSettings (Maybe (NonEmpty Text))
updateNetworkSettings_securityGroupIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateNetworkSettings' {Maybe (NonEmpty Text)
securityGroupIds :: Maybe (NonEmpty Text)
$sel:securityGroupIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
securityGroupIds} -> Maybe (NonEmpty Text)
securityGroupIds) (\s :: UpdateNetworkSettings
s@UpdateNetworkSettings' {} Maybe (NonEmpty Text)
a -> UpdateNetworkSettings
s {$sel:securityGroupIds:UpdateNetworkSettings' :: Maybe (NonEmpty Text)
securityGroupIds = Maybe (NonEmpty Text)
a} :: UpdateNetworkSettings) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateNetworkSettings_subnetIds :: Lens.Lens' UpdateNetworkSettings (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
updateNetworkSettings_subnetIds :: Lens' UpdateNetworkSettings (Maybe (NonEmpty Text))
updateNetworkSettings_subnetIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateNetworkSettings' {Maybe (NonEmpty Text)
subnetIds :: Maybe (NonEmpty Text)
$sel:subnetIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
subnetIds} -> Maybe (NonEmpty Text)
subnetIds) (\s :: UpdateNetworkSettings
s@UpdateNetworkSettings' {} Maybe (NonEmpty Text)
a -> UpdateNetworkSettings
s {$sel:subnetIds:UpdateNetworkSettings' :: Maybe (NonEmpty Text)
subnetIds = Maybe (NonEmpty Text)
a} :: UpdateNetworkSettings) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateNetworkSettings_vpcId :: Lens.Lens' UpdateNetworkSettings (Prelude.Maybe Prelude.Text)
updateNetworkSettings_vpcId :: Lens' UpdateNetworkSettings (Maybe Text)
updateNetworkSettings_vpcId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateNetworkSettings' {Maybe Text
vpcId :: Maybe Text
$sel:vpcId:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
vpcId} -> Maybe Text
vpcId) (\s :: UpdateNetworkSettings
s@UpdateNetworkSettings' {} Maybe Text
a -> UpdateNetworkSettings
s {$sel:vpcId:UpdateNetworkSettings' :: Maybe Text
vpcId = Maybe Text
a} :: UpdateNetworkSettings)
updateNetworkSettings_networkSettingsArn :: Lens.Lens' UpdateNetworkSettings Prelude.Text
updateNetworkSettings_networkSettingsArn :: Lens' UpdateNetworkSettings Text
updateNetworkSettings_networkSettingsArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateNetworkSettings' {Text
networkSettingsArn :: Text
$sel:networkSettingsArn:UpdateNetworkSettings' :: UpdateNetworkSettings -> Text
networkSettingsArn} -> Text
networkSettingsArn) (\s :: UpdateNetworkSettings
s@UpdateNetworkSettings' {} Text
a -> UpdateNetworkSettings
s {$sel:networkSettingsArn:UpdateNetworkSettings' :: Text
networkSettingsArn = Text
a} :: UpdateNetworkSettings)
instance Core.AWSRequest UpdateNetworkSettings where
type
AWSResponse UpdateNetworkSettings =
UpdateNetworkSettingsResponse
request :: (Service -> Service)
-> UpdateNetworkSettings -> Request UpdateNetworkSettings
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.patchJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateNetworkSettings
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateNetworkSettings)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int -> NetworkSettings -> UpdateNetworkSettingsResponse
UpdateNetworkSettingsResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"networkSettings")
)
instance Prelude.Hashable UpdateNetworkSettings where
hashWithSalt :: Int -> UpdateNetworkSettings -> Int
hashWithSalt Int
_salt UpdateNetworkSettings' {Maybe (NonEmpty Text)
Maybe Text
Text
networkSettingsArn :: Text
vpcId :: Maybe Text
subnetIds :: Maybe (NonEmpty Text)
securityGroupIds :: Maybe (NonEmpty Text)
clientToken :: Maybe Text
$sel:networkSettingsArn:UpdateNetworkSettings' :: UpdateNetworkSettings -> Text
$sel:vpcId:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
$sel:subnetIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
$sel:securityGroupIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
$sel:clientToken:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Text)
securityGroupIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Text)
subnetIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
vpcId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
networkSettingsArn
instance Prelude.NFData UpdateNetworkSettings where
rnf :: UpdateNetworkSettings -> ()
rnf UpdateNetworkSettings' {Maybe (NonEmpty Text)
Maybe Text
Text
networkSettingsArn :: Text
vpcId :: Maybe Text
subnetIds :: Maybe (NonEmpty Text)
securityGroupIds :: Maybe (NonEmpty Text)
clientToken :: Maybe Text
$sel:networkSettingsArn:UpdateNetworkSettings' :: UpdateNetworkSettings -> Text
$sel:vpcId:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
$sel:subnetIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
$sel:securityGroupIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
$sel:clientToken:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Text)
securityGroupIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Text)
subnetIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
vpcId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
networkSettingsArn
instance Data.ToHeaders UpdateNetworkSettings where
toHeaders :: UpdateNetworkSettings -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateNetworkSettings where
toJSON :: UpdateNetworkSettings -> Value
toJSON UpdateNetworkSettings' {Maybe (NonEmpty Text)
Maybe Text
Text
networkSettingsArn :: Text
vpcId :: Maybe Text
subnetIds :: Maybe (NonEmpty Text)
securityGroupIds :: Maybe (NonEmpty Text)
clientToken :: Maybe Text
$sel:networkSettingsArn:UpdateNetworkSettings' :: UpdateNetworkSettings -> Text
$sel:vpcId:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
$sel:subnetIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
$sel:securityGroupIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
$sel:clientToken:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"clientToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientToken,
(Key
"securityGroupIds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (NonEmpty Text)
securityGroupIds,
(Key
"subnetIds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (NonEmpty Text)
subnetIds,
(Key
"vpcId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
vpcId
]
)
instance Data.ToPath UpdateNetworkSettings where
toPath :: UpdateNetworkSettings -> ByteString
toPath UpdateNetworkSettings' {Maybe (NonEmpty Text)
Maybe Text
Text
networkSettingsArn :: Text
vpcId :: Maybe Text
subnetIds :: Maybe (NonEmpty Text)
securityGroupIds :: Maybe (NonEmpty Text)
clientToken :: Maybe Text
$sel:networkSettingsArn:UpdateNetworkSettings' :: UpdateNetworkSettings -> Text
$sel:vpcId:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
$sel:subnetIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
$sel:securityGroupIds:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe (NonEmpty Text)
$sel:clientToken:UpdateNetworkSettings' :: UpdateNetworkSettings -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/networkSettings/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
networkSettingsArn]
instance Data.ToQuery UpdateNetworkSettings where
toQuery :: UpdateNetworkSettings -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateNetworkSettingsResponse = UpdateNetworkSettingsResponse'
{
UpdateNetworkSettingsResponse -> Int
httpStatus :: Prelude.Int,
UpdateNetworkSettingsResponse -> NetworkSettings
networkSettings :: NetworkSettings
}
deriving (UpdateNetworkSettingsResponse
-> UpdateNetworkSettingsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateNetworkSettingsResponse
-> UpdateNetworkSettingsResponse -> Bool
$c/= :: UpdateNetworkSettingsResponse
-> UpdateNetworkSettingsResponse -> Bool
== :: UpdateNetworkSettingsResponse
-> UpdateNetworkSettingsResponse -> Bool
$c== :: UpdateNetworkSettingsResponse
-> UpdateNetworkSettingsResponse -> Bool
Prelude.Eq, ReadPrec [UpdateNetworkSettingsResponse]
ReadPrec UpdateNetworkSettingsResponse
Int -> ReadS UpdateNetworkSettingsResponse
ReadS [UpdateNetworkSettingsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateNetworkSettingsResponse]
$creadListPrec :: ReadPrec [UpdateNetworkSettingsResponse]
readPrec :: ReadPrec UpdateNetworkSettingsResponse
$creadPrec :: ReadPrec UpdateNetworkSettingsResponse
readList :: ReadS [UpdateNetworkSettingsResponse]
$creadList :: ReadS [UpdateNetworkSettingsResponse]
readsPrec :: Int -> ReadS UpdateNetworkSettingsResponse
$creadsPrec :: Int -> ReadS UpdateNetworkSettingsResponse
Prelude.Read, Int -> UpdateNetworkSettingsResponse -> ShowS
[UpdateNetworkSettingsResponse] -> ShowS
UpdateNetworkSettingsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateNetworkSettingsResponse] -> ShowS
$cshowList :: [UpdateNetworkSettingsResponse] -> ShowS
show :: UpdateNetworkSettingsResponse -> String
$cshow :: UpdateNetworkSettingsResponse -> String
showsPrec :: Int -> UpdateNetworkSettingsResponse -> ShowS
$cshowsPrec :: Int -> UpdateNetworkSettingsResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateNetworkSettingsResponse x
-> UpdateNetworkSettingsResponse
forall x.
UpdateNetworkSettingsResponse
-> Rep UpdateNetworkSettingsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateNetworkSettingsResponse x
-> UpdateNetworkSettingsResponse
$cfrom :: forall x.
UpdateNetworkSettingsResponse
-> Rep UpdateNetworkSettingsResponse x
Prelude.Generic)
newUpdateNetworkSettingsResponse ::
Prelude.Int ->
NetworkSettings ->
UpdateNetworkSettingsResponse
newUpdateNetworkSettingsResponse :: Int -> NetworkSettings -> UpdateNetworkSettingsResponse
newUpdateNetworkSettingsResponse
Int
pHttpStatus_
NetworkSettings
pNetworkSettings_ =
UpdateNetworkSettingsResponse'
{ $sel:httpStatus:UpdateNetworkSettingsResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:networkSettings:UpdateNetworkSettingsResponse' :: NetworkSettings
networkSettings = NetworkSettings
pNetworkSettings_
}
updateNetworkSettingsResponse_httpStatus :: Lens.Lens' UpdateNetworkSettingsResponse Prelude.Int
updateNetworkSettingsResponse_httpStatus :: Lens' UpdateNetworkSettingsResponse Int
updateNetworkSettingsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateNetworkSettingsResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateNetworkSettingsResponse' :: UpdateNetworkSettingsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateNetworkSettingsResponse
s@UpdateNetworkSettingsResponse' {} Int
a -> UpdateNetworkSettingsResponse
s {$sel:httpStatus:UpdateNetworkSettingsResponse' :: Int
httpStatus = Int
a} :: UpdateNetworkSettingsResponse)
updateNetworkSettingsResponse_networkSettings :: Lens.Lens' UpdateNetworkSettingsResponse NetworkSettings
updateNetworkSettingsResponse_networkSettings :: Lens' UpdateNetworkSettingsResponse NetworkSettings
updateNetworkSettingsResponse_networkSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateNetworkSettingsResponse' {NetworkSettings
networkSettings :: NetworkSettings
$sel:networkSettings:UpdateNetworkSettingsResponse' :: UpdateNetworkSettingsResponse -> NetworkSettings
networkSettings} -> NetworkSettings
networkSettings) (\s :: UpdateNetworkSettingsResponse
s@UpdateNetworkSettingsResponse' {} NetworkSettings
a -> UpdateNetworkSettingsResponse
s {$sel:networkSettings:UpdateNetworkSettingsResponse' :: NetworkSettings
networkSettings = NetworkSettings
a} :: UpdateNetworkSettingsResponse)
instance Prelude.NFData UpdateNetworkSettingsResponse where
rnf :: UpdateNetworkSettingsResponse -> ()
rnf UpdateNetworkSettingsResponse' {Int
NetworkSettings
networkSettings :: NetworkSettings
httpStatus :: Int
$sel:networkSettings:UpdateNetworkSettingsResponse' :: UpdateNetworkSettingsResponse -> NetworkSettings
$sel:httpStatus:UpdateNetworkSettingsResponse' :: UpdateNetworkSettingsResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NetworkSettings
networkSettings