{-# 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.BackupGateway.ImportHypervisorConfiguration
(
ImportHypervisorConfiguration (..),
newImportHypervisorConfiguration,
importHypervisorConfiguration_kmsKeyArn,
importHypervisorConfiguration_password,
importHypervisorConfiguration_tags,
importHypervisorConfiguration_username,
importHypervisorConfiguration_host,
importHypervisorConfiguration_name,
ImportHypervisorConfigurationResponse (..),
newImportHypervisorConfigurationResponse,
importHypervisorConfigurationResponse_hypervisorArn,
importHypervisorConfigurationResponse_httpStatus,
)
where
import Amazonka.BackupGateway.Types
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
data ImportHypervisorConfiguration = ImportHypervisorConfiguration'
{
ImportHypervisorConfiguration -> Maybe Text
kmsKeyArn :: Prelude.Maybe Prelude.Text,
ImportHypervisorConfiguration -> Maybe (Sensitive Text)
password :: Prelude.Maybe (Data.Sensitive Prelude.Text),
ImportHypervisorConfiguration -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
ImportHypervisorConfiguration -> Maybe (Sensitive Text)
username :: Prelude.Maybe (Data.Sensitive Prelude.Text),
ImportHypervisorConfiguration -> Text
host :: Prelude.Text,
ImportHypervisorConfiguration -> Text
name :: Prelude.Text
}
deriving (ImportHypervisorConfiguration
-> ImportHypervisorConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ImportHypervisorConfiguration
-> ImportHypervisorConfiguration -> Bool
$c/= :: ImportHypervisorConfiguration
-> ImportHypervisorConfiguration -> Bool
== :: ImportHypervisorConfiguration
-> ImportHypervisorConfiguration -> Bool
$c== :: ImportHypervisorConfiguration
-> ImportHypervisorConfiguration -> Bool
Prelude.Eq, Int -> ImportHypervisorConfiguration -> ShowS
[ImportHypervisorConfiguration] -> ShowS
ImportHypervisorConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ImportHypervisorConfiguration] -> ShowS
$cshowList :: [ImportHypervisorConfiguration] -> ShowS
show :: ImportHypervisorConfiguration -> String
$cshow :: ImportHypervisorConfiguration -> String
showsPrec :: Int -> ImportHypervisorConfiguration -> ShowS
$cshowsPrec :: Int -> ImportHypervisorConfiguration -> ShowS
Prelude.Show, forall x.
Rep ImportHypervisorConfiguration x
-> ImportHypervisorConfiguration
forall x.
ImportHypervisorConfiguration
-> Rep ImportHypervisorConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ImportHypervisorConfiguration x
-> ImportHypervisorConfiguration
$cfrom :: forall x.
ImportHypervisorConfiguration
-> Rep ImportHypervisorConfiguration x
Prelude.Generic)
newImportHypervisorConfiguration ::
Prelude.Text ->
Prelude.Text ->
ImportHypervisorConfiguration
newImportHypervisorConfiguration :: Text -> Text -> ImportHypervisorConfiguration
newImportHypervisorConfiguration Text
pHost_ Text
pName_ =
ImportHypervisorConfiguration'
{ $sel:kmsKeyArn:ImportHypervisorConfiguration' :: Maybe Text
kmsKeyArn =
forall a. Maybe a
Prelude.Nothing,
$sel:password:ImportHypervisorConfiguration' :: Maybe (Sensitive Text)
password = forall a. Maybe a
Prelude.Nothing,
$sel:tags:ImportHypervisorConfiguration' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:username:ImportHypervisorConfiguration' :: Maybe (Sensitive Text)
username = forall a. Maybe a
Prelude.Nothing,
$sel:host:ImportHypervisorConfiguration' :: Text
host = Text
pHost_,
$sel:name:ImportHypervisorConfiguration' :: Text
name = Text
pName_
}
importHypervisorConfiguration_kmsKeyArn :: Lens.Lens' ImportHypervisorConfiguration (Prelude.Maybe Prelude.Text)
importHypervisorConfiguration_kmsKeyArn :: Lens' ImportHypervisorConfiguration (Maybe Text)
importHypervisorConfiguration_kmsKeyArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportHypervisorConfiguration' {Maybe Text
kmsKeyArn :: Maybe Text
$sel:kmsKeyArn:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe Text
kmsKeyArn} -> Maybe Text
kmsKeyArn) (\s :: ImportHypervisorConfiguration
s@ImportHypervisorConfiguration' {} Maybe Text
a -> ImportHypervisorConfiguration
s {$sel:kmsKeyArn:ImportHypervisorConfiguration' :: Maybe Text
kmsKeyArn = Maybe Text
a} :: ImportHypervisorConfiguration)
importHypervisorConfiguration_password :: Lens.Lens' ImportHypervisorConfiguration (Prelude.Maybe Prelude.Text)
importHypervisorConfiguration_password :: Lens' ImportHypervisorConfiguration (Maybe Text)
importHypervisorConfiguration_password = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportHypervisorConfiguration' {Maybe (Sensitive Text)
password :: Maybe (Sensitive Text)
$sel:password:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe (Sensitive Text)
password} -> Maybe (Sensitive Text)
password) (\s :: ImportHypervisorConfiguration
s@ImportHypervisorConfiguration' {} Maybe (Sensitive Text)
a -> ImportHypervisorConfiguration
s {$sel:password:ImportHypervisorConfiguration' :: Maybe (Sensitive Text)
password = Maybe (Sensitive Text)
a} :: ImportHypervisorConfiguration) 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 a. Iso' (Sensitive a) a
Data._Sensitive
importHypervisorConfiguration_tags :: Lens.Lens' ImportHypervisorConfiguration (Prelude.Maybe [Tag])
importHypervisorConfiguration_tags :: Lens' ImportHypervisorConfiguration (Maybe [Tag])
importHypervisorConfiguration_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportHypervisorConfiguration' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: ImportHypervisorConfiguration
s@ImportHypervisorConfiguration' {} Maybe [Tag]
a -> ImportHypervisorConfiguration
s {$sel:tags:ImportHypervisorConfiguration' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: ImportHypervisorConfiguration) 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
importHypervisorConfiguration_username :: Lens.Lens' ImportHypervisorConfiguration (Prelude.Maybe Prelude.Text)
importHypervisorConfiguration_username :: Lens' ImportHypervisorConfiguration (Maybe Text)
importHypervisorConfiguration_username = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportHypervisorConfiguration' {Maybe (Sensitive Text)
username :: Maybe (Sensitive Text)
$sel:username:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe (Sensitive Text)
username} -> Maybe (Sensitive Text)
username) (\s :: ImportHypervisorConfiguration
s@ImportHypervisorConfiguration' {} Maybe (Sensitive Text)
a -> ImportHypervisorConfiguration
s {$sel:username:ImportHypervisorConfiguration' :: Maybe (Sensitive Text)
username = Maybe (Sensitive Text)
a} :: ImportHypervisorConfiguration) 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 a. Iso' (Sensitive a) a
Data._Sensitive
importHypervisorConfiguration_host :: Lens.Lens' ImportHypervisorConfiguration Prelude.Text
importHypervisorConfiguration_host :: Lens' ImportHypervisorConfiguration Text
importHypervisorConfiguration_host = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportHypervisorConfiguration' {Text
host :: Text
$sel:host:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Text
host} -> Text
host) (\s :: ImportHypervisorConfiguration
s@ImportHypervisorConfiguration' {} Text
a -> ImportHypervisorConfiguration
s {$sel:host:ImportHypervisorConfiguration' :: Text
host = Text
a} :: ImportHypervisorConfiguration)
importHypervisorConfiguration_name :: Lens.Lens' ImportHypervisorConfiguration Prelude.Text
importHypervisorConfiguration_name :: Lens' ImportHypervisorConfiguration Text
importHypervisorConfiguration_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportHypervisorConfiguration' {Text
name :: Text
$sel:name:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Text
name} -> Text
name) (\s :: ImportHypervisorConfiguration
s@ImportHypervisorConfiguration' {} Text
a -> ImportHypervisorConfiguration
s {$sel:name:ImportHypervisorConfiguration' :: Text
name = Text
a} :: ImportHypervisorConfiguration)
instance
Core.AWSRequest
ImportHypervisorConfiguration
where
type
AWSResponse ImportHypervisorConfiguration =
ImportHypervisorConfigurationResponse
request :: (Service -> Service)
-> ImportHypervisorConfiguration
-> Request ImportHypervisorConfiguration
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 ImportHypervisorConfiguration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ImportHypervisorConfiguration)))
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 -> ImportHypervisorConfigurationResponse
ImportHypervisorConfigurationResponse'
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
"HypervisorArn")
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
ImportHypervisorConfiguration
where
hashWithSalt :: Int -> ImportHypervisorConfiguration -> Int
hashWithSalt Int
_salt ImportHypervisorConfiguration' {Maybe [Tag]
Maybe Text
Maybe (Sensitive Text)
Text
name :: Text
host :: Text
username :: Maybe (Sensitive Text)
tags :: Maybe [Tag]
password :: Maybe (Sensitive Text)
kmsKeyArn :: Maybe Text
$sel:name:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Text
$sel:host:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Text
$sel:username:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe (Sensitive Text)
$sel:tags:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe [Tag]
$sel:password:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe (Sensitive Text)
$sel:kmsKeyArn:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
password
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
username
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
host
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData ImportHypervisorConfiguration where
rnf :: ImportHypervisorConfiguration -> ()
rnf ImportHypervisorConfiguration' {Maybe [Tag]
Maybe Text
Maybe (Sensitive Text)
Text
name :: Text
host :: Text
username :: Maybe (Sensitive Text)
tags :: Maybe [Tag]
password :: Maybe (Sensitive Text)
kmsKeyArn :: Maybe Text
$sel:name:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Text
$sel:host:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Text
$sel:username:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe (Sensitive Text)
$sel:tags:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe [Tag]
$sel:password:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe (Sensitive Text)
$sel:kmsKeyArn:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
password
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 (Sensitive Text)
username
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
host
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
instance Data.ToHeaders ImportHypervisorConfiguration where
toHeaders :: ImportHypervisorConfiguration -> 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
"BackupOnPremises_v20210101.ImportHypervisorConfiguration" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ImportHypervisorConfiguration where
toJSON :: ImportHypervisorConfiguration -> Value
toJSON ImportHypervisorConfiguration' {Maybe [Tag]
Maybe Text
Maybe (Sensitive Text)
Text
name :: Text
host :: Text
username :: Maybe (Sensitive Text)
tags :: Maybe [Tag]
password :: Maybe (Sensitive Text)
kmsKeyArn :: Maybe Text
$sel:name:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Text
$sel:host:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Text
$sel:username:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe (Sensitive Text)
$sel:tags:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe [Tag]
$sel:password:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe (Sensitive Text)
$sel:kmsKeyArn:ImportHypervisorConfiguration' :: ImportHypervisorConfiguration -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"KmsKeyArn" 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
kmsKeyArn,
(Key
"Password" 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 (Sensitive Text)
password,
(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
"Username" 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 (Sensitive Text)
username,
forall a. a -> Maybe a
Prelude.Just (Key
"Host" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
host),
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name)
]
)
instance Data.ToPath ImportHypervisorConfiguration where
toPath :: ImportHypervisorConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ImportHypervisorConfiguration where
toQuery :: ImportHypervisorConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ImportHypervisorConfigurationResponse = ImportHypervisorConfigurationResponse'
{
ImportHypervisorConfigurationResponse -> Maybe Text
hypervisorArn :: Prelude.Maybe Prelude.Text,
ImportHypervisorConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ImportHypervisorConfigurationResponse
-> ImportHypervisorConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ImportHypervisorConfigurationResponse
-> ImportHypervisorConfigurationResponse -> Bool
$c/= :: ImportHypervisorConfigurationResponse
-> ImportHypervisorConfigurationResponse -> Bool
== :: ImportHypervisorConfigurationResponse
-> ImportHypervisorConfigurationResponse -> Bool
$c== :: ImportHypervisorConfigurationResponse
-> ImportHypervisorConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [ImportHypervisorConfigurationResponse]
ReadPrec ImportHypervisorConfigurationResponse
Int -> ReadS ImportHypervisorConfigurationResponse
ReadS [ImportHypervisorConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ImportHypervisorConfigurationResponse]
$creadListPrec :: ReadPrec [ImportHypervisorConfigurationResponse]
readPrec :: ReadPrec ImportHypervisorConfigurationResponse
$creadPrec :: ReadPrec ImportHypervisorConfigurationResponse
readList :: ReadS [ImportHypervisorConfigurationResponse]
$creadList :: ReadS [ImportHypervisorConfigurationResponse]
readsPrec :: Int -> ReadS ImportHypervisorConfigurationResponse
$creadsPrec :: Int -> ReadS ImportHypervisorConfigurationResponse
Prelude.Read, Int -> ImportHypervisorConfigurationResponse -> ShowS
[ImportHypervisorConfigurationResponse] -> ShowS
ImportHypervisorConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ImportHypervisorConfigurationResponse] -> ShowS
$cshowList :: [ImportHypervisorConfigurationResponse] -> ShowS
show :: ImportHypervisorConfigurationResponse -> String
$cshow :: ImportHypervisorConfigurationResponse -> String
showsPrec :: Int -> ImportHypervisorConfigurationResponse -> ShowS
$cshowsPrec :: Int -> ImportHypervisorConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep ImportHypervisorConfigurationResponse x
-> ImportHypervisorConfigurationResponse
forall x.
ImportHypervisorConfigurationResponse
-> Rep ImportHypervisorConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ImportHypervisorConfigurationResponse x
-> ImportHypervisorConfigurationResponse
$cfrom :: forall x.
ImportHypervisorConfigurationResponse
-> Rep ImportHypervisorConfigurationResponse x
Prelude.Generic)
newImportHypervisorConfigurationResponse ::
Prelude.Int ->
ImportHypervisorConfigurationResponse
newImportHypervisorConfigurationResponse :: Int -> ImportHypervisorConfigurationResponse
newImportHypervisorConfigurationResponse Int
pHttpStatus_ =
ImportHypervisorConfigurationResponse'
{ $sel:hypervisorArn:ImportHypervisorConfigurationResponse' :: Maybe Text
hypervisorArn =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ImportHypervisorConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
importHypervisorConfigurationResponse_hypervisorArn :: Lens.Lens' ImportHypervisorConfigurationResponse (Prelude.Maybe Prelude.Text)
importHypervisorConfigurationResponse_hypervisorArn :: Lens' ImportHypervisorConfigurationResponse (Maybe Text)
importHypervisorConfigurationResponse_hypervisorArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportHypervisorConfigurationResponse' {Maybe Text
hypervisorArn :: Maybe Text
$sel:hypervisorArn:ImportHypervisorConfigurationResponse' :: ImportHypervisorConfigurationResponse -> Maybe Text
hypervisorArn} -> Maybe Text
hypervisorArn) (\s :: ImportHypervisorConfigurationResponse
s@ImportHypervisorConfigurationResponse' {} Maybe Text
a -> ImportHypervisorConfigurationResponse
s {$sel:hypervisorArn:ImportHypervisorConfigurationResponse' :: Maybe Text
hypervisorArn = Maybe Text
a} :: ImportHypervisorConfigurationResponse)
importHypervisorConfigurationResponse_httpStatus :: Lens.Lens' ImportHypervisorConfigurationResponse Prelude.Int
importHypervisorConfigurationResponse_httpStatus :: Lens' ImportHypervisorConfigurationResponse Int
importHypervisorConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportHypervisorConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:ImportHypervisorConfigurationResponse' :: ImportHypervisorConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ImportHypervisorConfigurationResponse
s@ImportHypervisorConfigurationResponse' {} Int
a -> ImportHypervisorConfigurationResponse
s {$sel:httpStatus:ImportHypervisorConfigurationResponse' :: Int
httpStatus = Int
a} :: ImportHypervisorConfigurationResponse)
instance
Prelude.NFData
ImportHypervisorConfigurationResponse
where
rnf :: ImportHypervisorConfigurationResponse -> ()
rnf ImportHypervisorConfigurationResponse' {Int
Maybe Text
httpStatus :: Int
hypervisorArn :: Maybe Text
$sel:httpStatus:ImportHypervisorConfigurationResponse' :: ImportHypervisorConfigurationResponse -> Int
$sel:hypervisorArn:ImportHypervisorConfigurationResponse' :: ImportHypervisorConfigurationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
hypervisorArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus