{-# 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.StorageGateway.ActivateGateway
(
ActivateGateway (..),
newActivateGateway,
activateGateway_gatewayType,
activateGateway_mediumChangerType,
activateGateway_tags,
activateGateway_tapeDriveType,
activateGateway_activationKey,
activateGateway_gatewayName,
activateGateway_gatewayTimezone,
activateGateway_gatewayRegion,
ActivateGatewayResponse (..),
newActivateGatewayResponse,
activateGatewayResponse_gatewayARN,
activateGatewayResponse_httpStatus,
)
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.StorageGateway.Types
data ActivateGateway = ActivateGateway'
{
ActivateGateway -> Maybe Text
gatewayType :: Prelude.Maybe Prelude.Text,
ActivateGateway -> Maybe Text
mediumChangerType :: Prelude.Maybe Prelude.Text,
ActivateGateway -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
ActivateGateway -> Maybe Text
tapeDriveType :: Prelude.Maybe Prelude.Text,
ActivateGateway -> Text
activationKey :: Prelude.Text,
ActivateGateway -> Text
gatewayName :: Prelude.Text,
ActivateGateway -> Text
gatewayTimezone :: Prelude.Text,
ActivateGateway -> Text
gatewayRegion :: Prelude.Text
}
deriving (ActivateGateway -> ActivateGateway -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ActivateGateway -> ActivateGateway -> Bool
$c/= :: ActivateGateway -> ActivateGateway -> Bool
== :: ActivateGateway -> ActivateGateway -> Bool
$c== :: ActivateGateway -> ActivateGateway -> Bool
Prelude.Eq, ReadPrec [ActivateGateway]
ReadPrec ActivateGateway
Int -> ReadS ActivateGateway
ReadS [ActivateGateway]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ActivateGateway]
$creadListPrec :: ReadPrec [ActivateGateway]
readPrec :: ReadPrec ActivateGateway
$creadPrec :: ReadPrec ActivateGateway
readList :: ReadS [ActivateGateway]
$creadList :: ReadS [ActivateGateway]
readsPrec :: Int -> ReadS ActivateGateway
$creadsPrec :: Int -> ReadS ActivateGateway
Prelude.Read, Int -> ActivateGateway -> ShowS
[ActivateGateway] -> ShowS
ActivateGateway -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ActivateGateway] -> ShowS
$cshowList :: [ActivateGateway] -> ShowS
show :: ActivateGateway -> String
$cshow :: ActivateGateway -> String
showsPrec :: Int -> ActivateGateway -> ShowS
$cshowsPrec :: Int -> ActivateGateway -> ShowS
Prelude.Show, forall x. Rep ActivateGateway x -> ActivateGateway
forall x. ActivateGateway -> Rep ActivateGateway x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ActivateGateway x -> ActivateGateway
$cfrom :: forall x. ActivateGateway -> Rep ActivateGateway x
Prelude.Generic)
newActivateGateway ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
ActivateGateway
newActivateGateway :: Text -> Text -> Text -> Text -> ActivateGateway
newActivateGateway
Text
pActivationKey_
Text
pGatewayName_
Text
pGatewayTimezone_
Text
pGatewayRegion_ =
ActivateGateway'
{ $sel:gatewayType:ActivateGateway' :: Maybe Text
gatewayType = forall a. Maybe a
Prelude.Nothing,
$sel:mediumChangerType:ActivateGateway' :: Maybe Text
mediumChangerType = forall a. Maybe a
Prelude.Nothing,
$sel:tags:ActivateGateway' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:tapeDriveType:ActivateGateway' :: Maybe Text
tapeDriveType = forall a. Maybe a
Prelude.Nothing,
$sel:activationKey:ActivateGateway' :: Text
activationKey = Text
pActivationKey_,
$sel:gatewayName:ActivateGateway' :: Text
gatewayName = Text
pGatewayName_,
$sel:gatewayTimezone:ActivateGateway' :: Text
gatewayTimezone = Text
pGatewayTimezone_,
$sel:gatewayRegion:ActivateGateway' :: Text
gatewayRegion = Text
pGatewayRegion_
}
activateGateway_gatewayType :: Lens.Lens' ActivateGateway (Prelude.Maybe Prelude.Text)
activateGateway_gatewayType :: Lens' ActivateGateway (Maybe Text)
activateGateway_gatewayType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGateway' {Maybe Text
gatewayType :: Maybe Text
$sel:gatewayType:ActivateGateway' :: ActivateGateway -> Maybe Text
gatewayType} -> Maybe Text
gatewayType) (\s :: ActivateGateway
s@ActivateGateway' {} Maybe Text
a -> ActivateGateway
s {$sel:gatewayType:ActivateGateway' :: Maybe Text
gatewayType = Maybe Text
a} :: ActivateGateway)
activateGateway_mediumChangerType :: Lens.Lens' ActivateGateway (Prelude.Maybe Prelude.Text)
activateGateway_mediumChangerType :: Lens' ActivateGateway (Maybe Text)
activateGateway_mediumChangerType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGateway' {Maybe Text
mediumChangerType :: Maybe Text
$sel:mediumChangerType:ActivateGateway' :: ActivateGateway -> Maybe Text
mediumChangerType} -> Maybe Text
mediumChangerType) (\s :: ActivateGateway
s@ActivateGateway' {} Maybe Text
a -> ActivateGateway
s {$sel:mediumChangerType:ActivateGateway' :: Maybe Text
mediumChangerType = Maybe Text
a} :: ActivateGateway)
activateGateway_tags :: Lens.Lens' ActivateGateway (Prelude.Maybe [Tag])
activateGateway_tags :: Lens' ActivateGateway (Maybe [Tag])
activateGateway_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGateway' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:ActivateGateway' :: ActivateGateway -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: ActivateGateway
s@ActivateGateway' {} Maybe [Tag]
a -> ActivateGateway
s {$sel:tags:ActivateGateway' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: ActivateGateway) 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
activateGateway_tapeDriveType :: Lens.Lens' ActivateGateway (Prelude.Maybe Prelude.Text)
activateGateway_tapeDriveType :: Lens' ActivateGateway (Maybe Text)
activateGateway_tapeDriveType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGateway' {Maybe Text
tapeDriveType :: Maybe Text
$sel:tapeDriveType:ActivateGateway' :: ActivateGateway -> Maybe Text
tapeDriveType} -> Maybe Text
tapeDriveType) (\s :: ActivateGateway
s@ActivateGateway' {} Maybe Text
a -> ActivateGateway
s {$sel:tapeDriveType:ActivateGateway' :: Maybe Text
tapeDriveType = Maybe Text
a} :: ActivateGateway)
activateGateway_activationKey :: Lens.Lens' ActivateGateway Prelude.Text
activateGateway_activationKey :: Lens' ActivateGateway Text
activateGateway_activationKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGateway' {Text
activationKey :: Text
$sel:activationKey:ActivateGateway' :: ActivateGateway -> Text
activationKey} -> Text
activationKey) (\s :: ActivateGateway
s@ActivateGateway' {} Text
a -> ActivateGateway
s {$sel:activationKey:ActivateGateway' :: Text
activationKey = Text
a} :: ActivateGateway)
activateGateway_gatewayName :: Lens.Lens' ActivateGateway Prelude.Text
activateGateway_gatewayName :: Lens' ActivateGateway Text
activateGateway_gatewayName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGateway' {Text
gatewayName :: Text
$sel:gatewayName:ActivateGateway' :: ActivateGateway -> Text
gatewayName} -> Text
gatewayName) (\s :: ActivateGateway
s@ActivateGateway' {} Text
a -> ActivateGateway
s {$sel:gatewayName:ActivateGateway' :: Text
gatewayName = Text
a} :: ActivateGateway)
activateGateway_gatewayTimezone :: Lens.Lens' ActivateGateway Prelude.Text
activateGateway_gatewayTimezone :: Lens' ActivateGateway Text
activateGateway_gatewayTimezone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGateway' {Text
gatewayTimezone :: Text
$sel:gatewayTimezone:ActivateGateway' :: ActivateGateway -> Text
gatewayTimezone} -> Text
gatewayTimezone) (\s :: ActivateGateway
s@ActivateGateway' {} Text
a -> ActivateGateway
s {$sel:gatewayTimezone:ActivateGateway' :: Text
gatewayTimezone = Text
a} :: ActivateGateway)
activateGateway_gatewayRegion :: Lens.Lens' ActivateGateway Prelude.Text
activateGateway_gatewayRegion :: Lens' ActivateGateway Text
activateGateway_gatewayRegion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGateway' {Text
gatewayRegion :: Text
$sel:gatewayRegion:ActivateGateway' :: ActivateGateway -> Text
gatewayRegion} -> Text
gatewayRegion) (\s :: ActivateGateway
s@ActivateGateway' {} Text
a -> ActivateGateway
s {$sel:gatewayRegion:ActivateGateway' :: Text
gatewayRegion = Text
a} :: ActivateGateway)
instance Core.AWSRequest ActivateGateway where
type
AWSResponse ActivateGateway =
ActivateGatewayResponse
request :: (Service -> Service) -> ActivateGateway -> Request ActivateGateway
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ActivateGateway
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ActivateGateway)))
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 ->
Maybe Text -> Int -> ActivateGatewayResponse
ActivateGatewayResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"GatewayARN")
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 ActivateGateway where
hashWithSalt :: Int -> ActivateGateway -> Int
hashWithSalt Int
_salt ActivateGateway' {Maybe [Tag]
Maybe Text
Text
gatewayRegion :: Text
gatewayTimezone :: Text
gatewayName :: Text
activationKey :: Text
tapeDriveType :: Maybe Text
tags :: Maybe [Tag]
mediumChangerType :: Maybe Text
gatewayType :: Maybe Text
$sel:gatewayRegion:ActivateGateway' :: ActivateGateway -> Text
$sel:gatewayTimezone:ActivateGateway' :: ActivateGateway -> Text
$sel:gatewayName:ActivateGateway' :: ActivateGateway -> Text
$sel:activationKey:ActivateGateway' :: ActivateGateway -> Text
$sel:tapeDriveType:ActivateGateway' :: ActivateGateway -> Maybe Text
$sel:tags:ActivateGateway' :: ActivateGateway -> Maybe [Tag]
$sel:mediumChangerType:ActivateGateway' :: ActivateGateway -> Maybe Text
$sel:gatewayType:ActivateGateway' :: ActivateGateway -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
gatewayType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
mediumChangerType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
tapeDriveType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
activationKey
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
gatewayName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
gatewayTimezone
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
gatewayRegion
instance Prelude.NFData ActivateGateway where
rnf :: ActivateGateway -> ()
rnf ActivateGateway' {Maybe [Tag]
Maybe Text
Text
gatewayRegion :: Text
gatewayTimezone :: Text
gatewayName :: Text
activationKey :: Text
tapeDriveType :: Maybe Text
tags :: Maybe [Tag]
mediumChangerType :: Maybe Text
gatewayType :: Maybe Text
$sel:gatewayRegion:ActivateGateway' :: ActivateGateway -> Text
$sel:gatewayTimezone:ActivateGateway' :: ActivateGateway -> Text
$sel:gatewayName:ActivateGateway' :: ActivateGateway -> Text
$sel:activationKey:ActivateGateway' :: ActivateGateway -> Text
$sel:tapeDriveType:ActivateGateway' :: ActivateGateway -> Maybe Text
$sel:tags:ActivateGateway' :: ActivateGateway -> Maybe [Tag]
$sel:mediumChangerType:ActivateGateway' :: ActivateGateway -> Maybe Text
$sel:gatewayType:ActivateGateway' :: ActivateGateway -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gatewayType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mediumChangerType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tapeDriveType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
activationKey
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
gatewayName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
gatewayTimezone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
gatewayRegion
instance Data.ToHeaders ActivateGateway where
toHeaders :: ActivateGateway -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"StorageGateway_20130630.ActivateGateway" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ActivateGateway where
toJSON :: ActivateGateway -> Value
toJSON ActivateGateway' {Maybe [Tag]
Maybe Text
Text
gatewayRegion :: Text
gatewayTimezone :: Text
gatewayName :: Text
activationKey :: Text
tapeDriveType :: Maybe Text
tags :: Maybe [Tag]
mediumChangerType :: Maybe Text
gatewayType :: Maybe Text
$sel:gatewayRegion:ActivateGateway' :: ActivateGateway -> Text
$sel:gatewayTimezone:ActivateGateway' :: ActivateGateway -> Text
$sel:gatewayName:ActivateGateway' :: ActivateGateway -> Text
$sel:activationKey:ActivateGateway' :: ActivateGateway -> Text
$sel:tapeDriveType:ActivateGateway' :: ActivateGateway -> Maybe Text
$sel:tags:ActivateGateway' :: ActivateGateway -> Maybe [Tag]
$sel:mediumChangerType:ActivateGateway' :: ActivateGateway -> Maybe Text
$sel:gatewayType:ActivateGateway' :: ActivateGateway -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"GatewayType" 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
gatewayType,
(Key
"MediumChangerType" 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
mediumChangerType,
(Key
"Tags" 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 [Tag]
tags,
(Key
"TapeDriveType" 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
tapeDriveType,
forall a. a -> Maybe a
Prelude.Just (Key
"ActivationKey" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
activationKey),
forall a. a -> Maybe a
Prelude.Just (Key
"GatewayName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
gatewayName),
forall a. a -> Maybe a
Prelude.Just
(Key
"GatewayTimezone" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
gatewayTimezone),
forall a. a -> Maybe a
Prelude.Just
(Key
"GatewayRegion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
gatewayRegion)
]
)
instance Data.ToPath ActivateGateway where
toPath :: ActivateGateway -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ActivateGateway where
toQuery :: ActivateGateway -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ActivateGatewayResponse = ActivateGatewayResponse'
{ ActivateGatewayResponse -> Maybe Text
gatewayARN :: Prelude.Maybe Prelude.Text,
ActivateGatewayResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ActivateGatewayResponse -> ActivateGatewayResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ActivateGatewayResponse -> ActivateGatewayResponse -> Bool
$c/= :: ActivateGatewayResponse -> ActivateGatewayResponse -> Bool
== :: ActivateGatewayResponse -> ActivateGatewayResponse -> Bool
$c== :: ActivateGatewayResponse -> ActivateGatewayResponse -> Bool
Prelude.Eq, ReadPrec [ActivateGatewayResponse]
ReadPrec ActivateGatewayResponse
Int -> ReadS ActivateGatewayResponse
ReadS [ActivateGatewayResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ActivateGatewayResponse]
$creadListPrec :: ReadPrec [ActivateGatewayResponse]
readPrec :: ReadPrec ActivateGatewayResponse
$creadPrec :: ReadPrec ActivateGatewayResponse
readList :: ReadS [ActivateGatewayResponse]
$creadList :: ReadS [ActivateGatewayResponse]
readsPrec :: Int -> ReadS ActivateGatewayResponse
$creadsPrec :: Int -> ReadS ActivateGatewayResponse
Prelude.Read, Int -> ActivateGatewayResponse -> ShowS
[ActivateGatewayResponse] -> ShowS
ActivateGatewayResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ActivateGatewayResponse] -> ShowS
$cshowList :: [ActivateGatewayResponse] -> ShowS
show :: ActivateGatewayResponse -> String
$cshow :: ActivateGatewayResponse -> String
showsPrec :: Int -> ActivateGatewayResponse -> ShowS
$cshowsPrec :: Int -> ActivateGatewayResponse -> ShowS
Prelude.Show, forall x. Rep ActivateGatewayResponse x -> ActivateGatewayResponse
forall x. ActivateGatewayResponse -> Rep ActivateGatewayResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ActivateGatewayResponse x -> ActivateGatewayResponse
$cfrom :: forall x. ActivateGatewayResponse -> Rep ActivateGatewayResponse x
Prelude.Generic)
newActivateGatewayResponse ::
Prelude.Int ->
ActivateGatewayResponse
newActivateGatewayResponse :: Int -> ActivateGatewayResponse
newActivateGatewayResponse Int
pHttpStatus_ =
ActivateGatewayResponse'
{ $sel:gatewayARN:ActivateGatewayResponse' :: Maybe Text
gatewayARN =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ActivateGatewayResponse' :: Int
httpStatus = Int
pHttpStatus_
}
activateGatewayResponse_gatewayARN :: Lens.Lens' ActivateGatewayResponse (Prelude.Maybe Prelude.Text)
activateGatewayResponse_gatewayARN :: Lens' ActivateGatewayResponse (Maybe Text)
activateGatewayResponse_gatewayARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGatewayResponse' {Maybe Text
gatewayARN :: Maybe Text
$sel:gatewayARN:ActivateGatewayResponse' :: ActivateGatewayResponse -> Maybe Text
gatewayARN} -> Maybe Text
gatewayARN) (\s :: ActivateGatewayResponse
s@ActivateGatewayResponse' {} Maybe Text
a -> ActivateGatewayResponse
s {$sel:gatewayARN:ActivateGatewayResponse' :: Maybe Text
gatewayARN = Maybe Text
a} :: ActivateGatewayResponse)
activateGatewayResponse_httpStatus :: Lens.Lens' ActivateGatewayResponse Prelude.Int
activateGatewayResponse_httpStatus :: Lens' ActivateGatewayResponse Int
activateGatewayResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ActivateGatewayResponse' {Int
httpStatus :: Int
$sel:httpStatus:ActivateGatewayResponse' :: ActivateGatewayResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ActivateGatewayResponse
s@ActivateGatewayResponse' {} Int
a -> ActivateGatewayResponse
s {$sel:httpStatus:ActivateGatewayResponse' :: Int
httpStatus = Int
a} :: ActivateGatewayResponse)
instance Prelude.NFData ActivateGatewayResponse where
rnf :: ActivateGatewayResponse -> ()
rnf ActivateGatewayResponse' {Int
Maybe Text
httpStatus :: Int
gatewayARN :: Maybe Text
$sel:httpStatus:ActivateGatewayResponse' :: ActivateGatewayResponse -> Int
$sel:gatewayARN:ActivateGatewayResponse' :: ActivateGatewayResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gatewayARN
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus