{-# 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.SSM.DeleteInventory
(
DeleteInventory (..),
newDeleteInventory,
deleteInventory_clientToken,
deleteInventory_schemaDeleteOption,
deleteInventory_dryRun,
deleteInventory_typeName,
DeleteInventoryResponse (..),
newDeleteInventoryResponse,
deleteInventoryResponse_typeName,
deleteInventoryResponse_deletionSummary,
deleteInventoryResponse_deletionId,
deleteInventoryResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SSM.Types
data DeleteInventory = DeleteInventory'
{
DeleteInventory -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
DeleteInventory -> Maybe InventorySchemaDeleteOption
schemaDeleteOption :: Prelude.Maybe InventorySchemaDeleteOption,
DeleteInventory -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DeleteInventory -> Text
typeName :: Prelude.Text
}
deriving (DeleteInventory -> DeleteInventory -> Bool
(DeleteInventory -> DeleteInventory -> Bool)
-> (DeleteInventory -> DeleteInventory -> Bool)
-> Eq DeleteInventory
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteInventory -> DeleteInventory -> Bool
$c/= :: DeleteInventory -> DeleteInventory -> Bool
== :: DeleteInventory -> DeleteInventory -> Bool
$c== :: DeleteInventory -> DeleteInventory -> Bool
Prelude.Eq, ReadPrec [DeleteInventory]
ReadPrec DeleteInventory
Int -> ReadS DeleteInventory
ReadS [DeleteInventory]
(Int -> ReadS DeleteInventory)
-> ReadS [DeleteInventory]
-> ReadPrec DeleteInventory
-> ReadPrec [DeleteInventory]
-> Read DeleteInventory
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteInventory]
$creadListPrec :: ReadPrec [DeleteInventory]
readPrec :: ReadPrec DeleteInventory
$creadPrec :: ReadPrec DeleteInventory
readList :: ReadS [DeleteInventory]
$creadList :: ReadS [DeleteInventory]
readsPrec :: Int -> ReadS DeleteInventory
$creadsPrec :: Int -> ReadS DeleteInventory
Prelude.Read, Int -> DeleteInventory -> ShowS
[DeleteInventory] -> ShowS
DeleteInventory -> String
(Int -> DeleteInventory -> ShowS)
-> (DeleteInventory -> String)
-> ([DeleteInventory] -> ShowS)
-> Show DeleteInventory
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteInventory] -> ShowS
$cshowList :: [DeleteInventory] -> ShowS
show :: DeleteInventory -> String
$cshow :: DeleteInventory -> String
showsPrec :: Int -> DeleteInventory -> ShowS
$cshowsPrec :: Int -> DeleteInventory -> ShowS
Prelude.Show, (forall x. DeleteInventory -> Rep DeleteInventory x)
-> (forall x. Rep DeleteInventory x -> DeleteInventory)
-> Generic DeleteInventory
forall x. Rep DeleteInventory x -> DeleteInventory
forall x. DeleteInventory -> Rep DeleteInventory x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteInventory x -> DeleteInventory
$cfrom :: forall x. DeleteInventory -> Rep DeleteInventory x
Prelude.Generic)
newDeleteInventory ::
Prelude.Text ->
DeleteInventory
newDeleteInventory :: Text -> DeleteInventory
newDeleteInventory Text
pTypeName_ =
DeleteInventory' :: Maybe Text
-> Maybe InventorySchemaDeleteOption
-> Maybe Bool
-> Text
-> DeleteInventory
DeleteInventory'
{ $sel:clientToken:DeleteInventory' :: Maybe Text
clientToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:schemaDeleteOption:DeleteInventory' :: Maybe InventorySchemaDeleteOption
schemaDeleteOption = Maybe InventorySchemaDeleteOption
forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:DeleteInventory' :: Maybe Bool
dryRun = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
$sel:typeName:DeleteInventory' :: Text
typeName = Text
pTypeName_
}
deleteInventory_clientToken :: Lens.Lens' DeleteInventory (Prelude.Maybe Prelude.Text)
deleteInventory_clientToken :: (Maybe Text -> f (Maybe Text))
-> DeleteInventory -> f DeleteInventory
deleteInventory_clientToken = (DeleteInventory -> Maybe Text)
-> (DeleteInventory -> Maybe Text -> DeleteInventory)
-> Lens DeleteInventory DeleteInventory (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInventory' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:DeleteInventory' :: DeleteInventory -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: DeleteInventory
s@DeleteInventory' {} Maybe Text
a -> DeleteInventory
s {$sel:clientToken:DeleteInventory' :: Maybe Text
clientToken = Maybe Text
a} :: DeleteInventory)
deleteInventory_schemaDeleteOption :: Lens.Lens' DeleteInventory (Prelude.Maybe InventorySchemaDeleteOption)
deleteInventory_schemaDeleteOption :: (Maybe InventorySchemaDeleteOption
-> f (Maybe InventorySchemaDeleteOption))
-> DeleteInventory -> f DeleteInventory
deleteInventory_schemaDeleteOption = (DeleteInventory -> Maybe InventorySchemaDeleteOption)
-> (DeleteInventory
-> Maybe InventorySchemaDeleteOption -> DeleteInventory)
-> Lens
DeleteInventory
DeleteInventory
(Maybe InventorySchemaDeleteOption)
(Maybe InventorySchemaDeleteOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInventory' {Maybe InventorySchemaDeleteOption
schemaDeleteOption :: Maybe InventorySchemaDeleteOption
$sel:schemaDeleteOption:DeleteInventory' :: DeleteInventory -> Maybe InventorySchemaDeleteOption
schemaDeleteOption} -> Maybe InventorySchemaDeleteOption
schemaDeleteOption) (\s :: DeleteInventory
s@DeleteInventory' {} Maybe InventorySchemaDeleteOption
a -> DeleteInventory
s {$sel:schemaDeleteOption:DeleteInventory' :: Maybe InventorySchemaDeleteOption
schemaDeleteOption = Maybe InventorySchemaDeleteOption
a} :: DeleteInventory)
deleteInventory_dryRun :: Lens.Lens' DeleteInventory (Prelude.Maybe Prelude.Bool)
deleteInventory_dryRun :: (Maybe Bool -> f (Maybe Bool))
-> DeleteInventory -> f DeleteInventory
deleteInventory_dryRun = (DeleteInventory -> Maybe Bool)
-> (DeleteInventory -> Maybe Bool -> DeleteInventory)
-> Lens DeleteInventory DeleteInventory (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInventory' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DeleteInventory' :: DeleteInventory -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DeleteInventory
s@DeleteInventory' {} Maybe Bool
a -> DeleteInventory
s {$sel:dryRun:DeleteInventory' :: Maybe Bool
dryRun = Maybe Bool
a} :: DeleteInventory)
deleteInventory_typeName :: Lens.Lens' DeleteInventory Prelude.Text
deleteInventory_typeName :: (Text -> f Text) -> DeleteInventory -> f DeleteInventory
deleteInventory_typeName = (DeleteInventory -> Text)
-> (DeleteInventory -> Text -> DeleteInventory)
-> Lens DeleteInventory DeleteInventory Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInventory' {Text
typeName :: Text
$sel:typeName:DeleteInventory' :: DeleteInventory -> Text
typeName} -> Text
typeName) (\s :: DeleteInventory
s@DeleteInventory' {} Text
a -> DeleteInventory
s {$sel:typeName:DeleteInventory' :: Text
typeName = Text
a} :: DeleteInventory)
instance Core.AWSRequest DeleteInventory where
type
AWSResponse DeleteInventory =
DeleteInventoryResponse
request :: DeleteInventory -> Request DeleteInventory
request = Service -> DeleteInventory -> Request DeleteInventory
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy DeleteInventory
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteInventory)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse DeleteInventory))
-> Logger
-> Service
-> Proxy DeleteInventory
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteInventory)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe InventoryDeletionSummary
-> Maybe Text
-> Int
-> DeleteInventoryResponse
DeleteInventoryResponse'
(Maybe Text
-> Maybe InventoryDeletionSummary
-> Maybe Text
-> Int
-> DeleteInventoryResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe InventoryDeletionSummary
-> Maybe Text -> Int -> DeleteInventoryResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"TypeName")
Either
String
(Maybe InventoryDeletionSummary
-> Maybe Text -> Int -> DeleteInventoryResponse)
-> Either String (Maybe InventoryDeletionSummary)
-> Either String (Maybe Text -> Int -> DeleteInventoryResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe InventoryDeletionSummary)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"DeletionSummary")
Either String (Maybe Text -> Int -> DeleteInventoryResponse)
-> Either String (Maybe Text)
-> Either String (Int -> DeleteInventoryResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"DeletionId")
Either String (Int -> DeleteInventoryResponse)
-> Either String Int -> Either String DeleteInventoryResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DeleteInventory
instance Prelude.NFData DeleteInventory
instance Core.ToHeaders DeleteInventory where
toHeaders :: DeleteInventory -> ResponseHeaders
toHeaders =
ResponseHeaders -> DeleteInventory -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# (ByteString
"AmazonSSM.DeleteInventory" :: Prelude.ByteString),
HeaderName
"Content-Type"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Core.ToJSON DeleteInventory where
toJSON :: DeleteInventory -> Value
toJSON DeleteInventory' {Maybe Bool
Maybe Text
Maybe InventorySchemaDeleteOption
Text
typeName :: Text
dryRun :: Maybe Bool
schemaDeleteOption :: Maybe InventorySchemaDeleteOption
clientToken :: Maybe Text
$sel:typeName:DeleteInventory' :: DeleteInventory -> Text
$sel:dryRun:DeleteInventory' :: DeleteInventory -> Maybe Bool
$sel:schemaDeleteOption:DeleteInventory' :: DeleteInventory -> Maybe InventorySchemaDeleteOption
$sel:clientToken:DeleteInventory' :: DeleteInventory -> Maybe Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Text
"ClientToken" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientToken,
(Text
"SchemaDeleteOption" Text -> InventorySchemaDeleteOption -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(InventorySchemaDeleteOption -> Pair)
-> Maybe InventorySchemaDeleteOption -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InventorySchemaDeleteOption
schemaDeleteOption,
(Text
"DryRun" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
dryRun,
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"TypeName" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
typeName)
]
)
instance Core.ToPath DeleteInventory where
toPath :: DeleteInventory -> ByteString
toPath = ByteString -> DeleteInventory -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Core.ToQuery DeleteInventory where
toQuery :: DeleteInventory -> QueryString
toQuery = QueryString -> DeleteInventory -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data DeleteInventoryResponse = DeleteInventoryResponse'
{
DeleteInventoryResponse -> Maybe Text
typeName :: Prelude.Maybe Prelude.Text,
DeleteInventoryResponse -> Maybe InventoryDeletionSummary
deletionSummary :: Prelude.Maybe InventoryDeletionSummary,
DeleteInventoryResponse -> Maybe Text
deletionId :: Prelude.Maybe Prelude.Text,
DeleteInventoryResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteInventoryResponse -> DeleteInventoryResponse -> Bool
(DeleteInventoryResponse -> DeleteInventoryResponse -> Bool)
-> (DeleteInventoryResponse -> DeleteInventoryResponse -> Bool)
-> Eq DeleteInventoryResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteInventoryResponse -> DeleteInventoryResponse -> Bool
$c/= :: DeleteInventoryResponse -> DeleteInventoryResponse -> Bool
== :: DeleteInventoryResponse -> DeleteInventoryResponse -> Bool
$c== :: DeleteInventoryResponse -> DeleteInventoryResponse -> Bool
Prelude.Eq, ReadPrec [DeleteInventoryResponse]
ReadPrec DeleteInventoryResponse
Int -> ReadS DeleteInventoryResponse
ReadS [DeleteInventoryResponse]
(Int -> ReadS DeleteInventoryResponse)
-> ReadS [DeleteInventoryResponse]
-> ReadPrec DeleteInventoryResponse
-> ReadPrec [DeleteInventoryResponse]
-> Read DeleteInventoryResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteInventoryResponse]
$creadListPrec :: ReadPrec [DeleteInventoryResponse]
readPrec :: ReadPrec DeleteInventoryResponse
$creadPrec :: ReadPrec DeleteInventoryResponse
readList :: ReadS [DeleteInventoryResponse]
$creadList :: ReadS [DeleteInventoryResponse]
readsPrec :: Int -> ReadS DeleteInventoryResponse
$creadsPrec :: Int -> ReadS DeleteInventoryResponse
Prelude.Read, Int -> DeleteInventoryResponse -> ShowS
[DeleteInventoryResponse] -> ShowS
DeleteInventoryResponse -> String
(Int -> DeleteInventoryResponse -> ShowS)
-> (DeleteInventoryResponse -> String)
-> ([DeleteInventoryResponse] -> ShowS)
-> Show DeleteInventoryResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteInventoryResponse] -> ShowS
$cshowList :: [DeleteInventoryResponse] -> ShowS
show :: DeleteInventoryResponse -> String
$cshow :: DeleteInventoryResponse -> String
showsPrec :: Int -> DeleteInventoryResponse -> ShowS
$cshowsPrec :: Int -> DeleteInventoryResponse -> ShowS
Prelude.Show, (forall x.
DeleteInventoryResponse -> Rep DeleteInventoryResponse x)
-> (forall x.
Rep DeleteInventoryResponse x -> DeleteInventoryResponse)
-> Generic DeleteInventoryResponse
forall x. Rep DeleteInventoryResponse x -> DeleteInventoryResponse
forall x. DeleteInventoryResponse -> Rep DeleteInventoryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteInventoryResponse x -> DeleteInventoryResponse
$cfrom :: forall x. DeleteInventoryResponse -> Rep DeleteInventoryResponse x
Prelude.Generic)
newDeleteInventoryResponse ::
Prelude.Int ->
DeleteInventoryResponse
newDeleteInventoryResponse :: Int -> DeleteInventoryResponse
newDeleteInventoryResponse Int
pHttpStatus_ =
DeleteInventoryResponse' :: Maybe Text
-> Maybe InventoryDeletionSummary
-> Maybe Text
-> Int
-> DeleteInventoryResponse
DeleteInventoryResponse'
{ $sel:typeName:DeleteInventoryResponse' :: Maybe Text
typeName =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:deletionSummary:DeleteInventoryResponse' :: Maybe InventoryDeletionSummary
deletionSummary = Maybe InventoryDeletionSummary
forall a. Maybe a
Prelude.Nothing,
$sel:deletionId:DeleteInventoryResponse' :: Maybe Text
deletionId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteInventoryResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteInventoryResponse_typeName :: Lens.Lens' DeleteInventoryResponse (Prelude.Maybe Prelude.Text)
deleteInventoryResponse_typeName :: (Maybe Text -> f (Maybe Text))
-> DeleteInventoryResponse -> f DeleteInventoryResponse
deleteInventoryResponse_typeName = (DeleteInventoryResponse -> Maybe Text)
-> (DeleteInventoryResponse
-> Maybe Text -> DeleteInventoryResponse)
-> Lens
DeleteInventoryResponse
DeleteInventoryResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInventoryResponse' {Maybe Text
typeName :: Maybe Text
$sel:typeName:DeleteInventoryResponse' :: DeleteInventoryResponse -> Maybe Text
typeName} -> Maybe Text
typeName) (\s :: DeleteInventoryResponse
s@DeleteInventoryResponse' {} Maybe Text
a -> DeleteInventoryResponse
s {$sel:typeName:DeleteInventoryResponse' :: Maybe Text
typeName = Maybe Text
a} :: DeleteInventoryResponse)
deleteInventoryResponse_deletionSummary :: Lens.Lens' DeleteInventoryResponse (Prelude.Maybe InventoryDeletionSummary)
deleteInventoryResponse_deletionSummary :: (Maybe InventoryDeletionSummary
-> f (Maybe InventoryDeletionSummary))
-> DeleteInventoryResponse -> f DeleteInventoryResponse
deleteInventoryResponse_deletionSummary = (DeleteInventoryResponse -> Maybe InventoryDeletionSummary)
-> (DeleteInventoryResponse
-> Maybe InventoryDeletionSummary -> DeleteInventoryResponse)
-> Lens
DeleteInventoryResponse
DeleteInventoryResponse
(Maybe InventoryDeletionSummary)
(Maybe InventoryDeletionSummary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInventoryResponse' {Maybe InventoryDeletionSummary
deletionSummary :: Maybe InventoryDeletionSummary
$sel:deletionSummary:DeleteInventoryResponse' :: DeleteInventoryResponse -> Maybe InventoryDeletionSummary
deletionSummary} -> Maybe InventoryDeletionSummary
deletionSummary) (\s :: DeleteInventoryResponse
s@DeleteInventoryResponse' {} Maybe InventoryDeletionSummary
a -> DeleteInventoryResponse
s {$sel:deletionSummary:DeleteInventoryResponse' :: Maybe InventoryDeletionSummary
deletionSummary = Maybe InventoryDeletionSummary
a} :: DeleteInventoryResponse)
deleteInventoryResponse_deletionId :: Lens.Lens' DeleteInventoryResponse (Prelude.Maybe Prelude.Text)
deleteInventoryResponse_deletionId :: (Maybe Text -> f (Maybe Text))
-> DeleteInventoryResponse -> f DeleteInventoryResponse
deleteInventoryResponse_deletionId = (DeleteInventoryResponse -> Maybe Text)
-> (DeleteInventoryResponse
-> Maybe Text -> DeleteInventoryResponse)
-> Lens
DeleteInventoryResponse
DeleteInventoryResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInventoryResponse' {Maybe Text
deletionId :: Maybe Text
$sel:deletionId:DeleteInventoryResponse' :: DeleteInventoryResponse -> Maybe Text
deletionId} -> Maybe Text
deletionId) (\s :: DeleteInventoryResponse
s@DeleteInventoryResponse' {} Maybe Text
a -> DeleteInventoryResponse
s {$sel:deletionId:DeleteInventoryResponse' :: Maybe Text
deletionId = Maybe Text
a} :: DeleteInventoryResponse)
deleteInventoryResponse_httpStatus :: Lens.Lens' DeleteInventoryResponse Prelude.Int
deleteInventoryResponse_httpStatus :: (Int -> f Int)
-> DeleteInventoryResponse -> f DeleteInventoryResponse
deleteInventoryResponse_httpStatus = (DeleteInventoryResponse -> Int)
-> (DeleteInventoryResponse -> Int -> DeleteInventoryResponse)
-> Lens DeleteInventoryResponse DeleteInventoryResponse Int Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInventoryResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteInventoryResponse' :: DeleteInventoryResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteInventoryResponse
s@DeleteInventoryResponse' {} Int
a -> DeleteInventoryResponse
s {$sel:httpStatus:DeleteInventoryResponse' :: Int
httpStatus = Int
a} :: DeleteInventoryResponse)
instance Prelude.NFData DeleteInventoryResponse