{-# 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.Discovery.DisassociateConfigurationItemsFromApplication
(
DisassociateConfigurationItemsFromApplication (..),
newDisassociateConfigurationItemsFromApplication,
disassociateConfigurationItemsFromApplication_applicationConfigurationId,
disassociateConfigurationItemsFromApplication_configurationIds,
DisassociateConfigurationItemsFromApplicationResponse (..),
newDisassociateConfigurationItemsFromApplicationResponse,
disassociateConfigurationItemsFromApplicationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import Amazonka.Discovery.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DisassociateConfigurationItemsFromApplication = DisassociateConfigurationItemsFromApplication'
{
DisassociateConfigurationItemsFromApplication -> Text
applicationConfigurationId :: Prelude.Text,
DisassociateConfigurationItemsFromApplication -> [Text]
configurationIds :: [Prelude.Text]
}
deriving (DisassociateConfigurationItemsFromApplication
-> DisassociateConfigurationItemsFromApplication -> Bool
(DisassociateConfigurationItemsFromApplication
-> DisassociateConfigurationItemsFromApplication -> Bool)
-> (DisassociateConfigurationItemsFromApplication
-> DisassociateConfigurationItemsFromApplication -> Bool)
-> Eq DisassociateConfigurationItemsFromApplication
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateConfigurationItemsFromApplication
-> DisassociateConfigurationItemsFromApplication -> Bool
$c/= :: DisassociateConfigurationItemsFromApplication
-> DisassociateConfigurationItemsFromApplication -> Bool
== :: DisassociateConfigurationItemsFromApplication
-> DisassociateConfigurationItemsFromApplication -> Bool
$c== :: DisassociateConfigurationItemsFromApplication
-> DisassociateConfigurationItemsFromApplication -> Bool
Prelude.Eq, ReadPrec [DisassociateConfigurationItemsFromApplication]
ReadPrec DisassociateConfigurationItemsFromApplication
Int -> ReadS DisassociateConfigurationItemsFromApplication
ReadS [DisassociateConfigurationItemsFromApplication]
(Int -> ReadS DisassociateConfigurationItemsFromApplication)
-> ReadS [DisassociateConfigurationItemsFromApplication]
-> ReadPrec DisassociateConfigurationItemsFromApplication
-> ReadPrec [DisassociateConfigurationItemsFromApplication]
-> Read DisassociateConfigurationItemsFromApplication
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateConfigurationItemsFromApplication]
$creadListPrec :: ReadPrec [DisassociateConfigurationItemsFromApplication]
readPrec :: ReadPrec DisassociateConfigurationItemsFromApplication
$creadPrec :: ReadPrec DisassociateConfigurationItemsFromApplication
readList :: ReadS [DisassociateConfigurationItemsFromApplication]
$creadList :: ReadS [DisassociateConfigurationItemsFromApplication]
readsPrec :: Int -> ReadS DisassociateConfigurationItemsFromApplication
$creadsPrec :: Int -> ReadS DisassociateConfigurationItemsFromApplication
Prelude.Read, Int -> DisassociateConfigurationItemsFromApplication -> ShowS
[DisassociateConfigurationItemsFromApplication] -> ShowS
DisassociateConfigurationItemsFromApplication -> String
(Int -> DisassociateConfigurationItemsFromApplication -> ShowS)
-> (DisassociateConfigurationItemsFromApplication -> String)
-> ([DisassociateConfigurationItemsFromApplication] -> ShowS)
-> Show DisassociateConfigurationItemsFromApplication
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateConfigurationItemsFromApplication] -> ShowS
$cshowList :: [DisassociateConfigurationItemsFromApplication] -> ShowS
show :: DisassociateConfigurationItemsFromApplication -> String
$cshow :: DisassociateConfigurationItemsFromApplication -> String
showsPrec :: Int -> DisassociateConfigurationItemsFromApplication -> ShowS
$cshowsPrec :: Int -> DisassociateConfigurationItemsFromApplication -> ShowS
Prelude.Show, (forall x.
DisassociateConfigurationItemsFromApplication
-> Rep DisassociateConfigurationItemsFromApplication x)
-> (forall x.
Rep DisassociateConfigurationItemsFromApplication x
-> DisassociateConfigurationItemsFromApplication)
-> Generic DisassociateConfigurationItemsFromApplication
forall x.
Rep DisassociateConfigurationItemsFromApplication x
-> DisassociateConfigurationItemsFromApplication
forall x.
DisassociateConfigurationItemsFromApplication
-> Rep DisassociateConfigurationItemsFromApplication x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateConfigurationItemsFromApplication x
-> DisassociateConfigurationItemsFromApplication
$cfrom :: forall x.
DisassociateConfigurationItemsFromApplication
-> Rep DisassociateConfigurationItemsFromApplication x
Prelude.Generic)
newDisassociateConfigurationItemsFromApplication ::
Prelude.Text ->
DisassociateConfigurationItemsFromApplication
newDisassociateConfigurationItemsFromApplication :: Text -> DisassociateConfigurationItemsFromApplication
newDisassociateConfigurationItemsFromApplication
Text
pApplicationConfigurationId_ =
DisassociateConfigurationItemsFromApplication' :: Text -> [Text] -> DisassociateConfigurationItemsFromApplication
DisassociateConfigurationItemsFromApplication'
{ $sel:applicationConfigurationId:DisassociateConfigurationItemsFromApplication' :: Text
applicationConfigurationId =
Text
pApplicationConfigurationId_,
$sel:configurationIds:DisassociateConfigurationItemsFromApplication' :: [Text]
configurationIds =
[Text]
forall a. Monoid a => a
Prelude.mempty
}
disassociateConfigurationItemsFromApplication_applicationConfigurationId :: Lens.Lens' DisassociateConfigurationItemsFromApplication Prelude.Text
disassociateConfigurationItemsFromApplication_applicationConfigurationId :: (Text -> f Text)
-> DisassociateConfigurationItemsFromApplication
-> f DisassociateConfigurationItemsFromApplication
disassociateConfigurationItemsFromApplication_applicationConfigurationId = (DisassociateConfigurationItemsFromApplication -> Text)
-> (DisassociateConfigurationItemsFromApplication
-> Text -> DisassociateConfigurationItemsFromApplication)
-> Lens
DisassociateConfigurationItemsFromApplication
DisassociateConfigurationItemsFromApplication
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateConfigurationItemsFromApplication' {Text
applicationConfigurationId :: Text
$sel:applicationConfigurationId:DisassociateConfigurationItemsFromApplication' :: DisassociateConfigurationItemsFromApplication -> Text
applicationConfigurationId} -> Text
applicationConfigurationId) (\s :: DisassociateConfigurationItemsFromApplication
s@DisassociateConfigurationItemsFromApplication' {} Text
a -> DisassociateConfigurationItemsFromApplication
s {$sel:applicationConfigurationId:DisassociateConfigurationItemsFromApplication' :: Text
applicationConfigurationId = Text
a} :: DisassociateConfigurationItemsFromApplication)
disassociateConfigurationItemsFromApplication_configurationIds :: Lens.Lens' DisassociateConfigurationItemsFromApplication [Prelude.Text]
disassociateConfigurationItemsFromApplication_configurationIds :: ([Text] -> f [Text])
-> DisassociateConfigurationItemsFromApplication
-> f DisassociateConfigurationItemsFromApplication
disassociateConfigurationItemsFromApplication_configurationIds = (DisassociateConfigurationItemsFromApplication -> [Text])
-> (DisassociateConfigurationItemsFromApplication
-> [Text] -> DisassociateConfigurationItemsFromApplication)
-> Lens
DisassociateConfigurationItemsFromApplication
DisassociateConfigurationItemsFromApplication
[Text]
[Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateConfigurationItemsFromApplication' {[Text]
configurationIds :: [Text]
$sel:configurationIds:DisassociateConfigurationItemsFromApplication' :: DisassociateConfigurationItemsFromApplication -> [Text]
configurationIds} -> [Text]
configurationIds) (\s :: DisassociateConfigurationItemsFromApplication
s@DisassociateConfigurationItemsFromApplication' {} [Text]
a -> DisassociateConfigurationItemsFromApplication
s {$sel:configurationIds:DisassociateConfigurationItemsFromApplication' :: [Text]
configurationIds = [Text]
a} :: DisassociateConfigurationItemsFromApplication) (([Text] -> f [Text])
-> DisassociateConfigurationItemsFromApplication
-> f DisassociateConfigurationItemsFromApplication)
-> (([Text] -> f [Text]) -> [Text] -> f [Text])
-> ([Text] -> f [Text])
-> DisassociateConfigurationItemsFromApplication
-> f DisassociateConfigurationItemsFromApplication
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Text] -> f [Text]) -> [Text] -> f [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance
Core.AWSRequest
DisassociateConfigurationItemsFromApplication
where
type
AWSResponse
DisassociateConfigurationItemsFromApplication =
DisassociateConfigurationItemsFromApplicationResponse
request :: DisassociateConfigurationItemsFromApplication
-> Request DisassociateConfigurationItemsFromApplication
request = Service
-> DisassociateConfigurationItemsFromApplication
-> Request DisassociateConfigurationItemsFromApplication
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy DisassociateConfigurationItemsFromApplication
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DisassociateConfigurationItemsFromApplication)))
response =
(Int
-> ResponseHeaders
-> ()
-> Either
String (AWSResponse DisassociateConfigurationItemsFromApplication))
-> Logger
-> Service
-> Proxy DisassociateConfigurationItemsFromApplication
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DisassociateConfigurationItemsFromApplication)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DisassociateConfigurationItemsFromApplicationResponse
DisassociateConfigurationItemsFromApplicationResponse'
(Int -> DisassociateConfigurationItemsFromApplicationResponse)
-> Either String Int
-> Either
String DisassociateConfigurationItemsFromApplicationResponse
forall (f :: * -> *) a b. Functor 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
DisassociateConfigurationItemsFromApplication
instance
Prelude.NFData
DisassociateConfigurationItemsFromApplication
instance
Core.ToHeaders
DisassociateConfigurationItemsFromApplication
where
toHeaders :: DisassociateConfigurationItemsFromApplication -> ResponseHeaders
toHeaders =
ResponseHeaders
-> DisassociateConfigurationItemsFromApplication -> 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
"AWSPoseidonService_V2015_11_01.DisassociateConfigurationItemsFromApplication" ::
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
DisassociateConfigurationItemsFromApplication
where
toJSON :: DisassociateConfigurationItemsFromApplication -> Value
toJSON
DisassociateConfigurationItemsFromApplication' {[Text]
Text
configurationIds :: [Text]
applicationConfigurationId :: Text
$sel:configurationIds:DisassociateConfigurationItemsFromApplication' :: DisassociateConfigurationItemsFromApplication -> [Text]
$sel:applicationConfigurationId:DisassociateConfigurationItemsFromApplication' :: DisassociateConfigurationItemsFromApplication -> Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"applicationConfigurationId"
Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
applicationConfigurationId
),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
(Text
"configurationIds" Text -> [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= [Text]
configurationIds)
]
)
instance
Core.ToPath
DisassociateConfigurationItemsFromApplication
where
toPath :: DisassociateConfigurationItemsFromApplication -> ByteString
toPath = ByteString
-> DisassociateConfigurationItemsFromApplication -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Core.ToQuery
DisassociateConfigurationItemsFromApplication
where
toQuery :: DisassociateConfigurationItemsFromApplication -> QueryString
toQuery = QueryString
-> DisassociateConfigurationItemsFromApplication -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data DisassociateConfigurationItemsFromApplicationResponse = DisassociateConfigurationItemsFromApplicationResponse'
{
DisassociateConfigurationItemsFromApplicationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DisassociateConfigurationItemsFromApplicationResponse
-> DisassociateConfigurationItemsFromApplicationResponse -> Bool
(DisassociateConfigurationItemsFromApplicationResponse
-> DisassociateConfigurationItemsFromApplicationResponse -> Bool)
-> (DisassociateConfigurationItemsFromApplicationResponse
-> DisassociateConfigurationItemsFromApplicationResponse -> Bool)
-> Eq DisassociateConfigurationItemsFromApplicationResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateConfigurationItemsFromApplicationResponse
-> DisassociateConfigurationItemsFromApplicationResponse -> Bool
$c/= :: DisassociateConfigurationItemsFromApplicationResponse
-> DisassociateConfigurationItemsFromApplicationResponse -> Bool
== :: DisassociateConfigurationItemsFromApplicationResponse
-> DisassociateConfigurationItemsFromApplicationResponse -> Bool
$c== :: DisassociateConfigurationItemsFromApplicationResponse
-> DisassociateConfigurationItemsFromApplicationResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateConfigurationItemsFromApplicationResponse]
ReadPrec DisassociateConfigurationItemsFromApplicationResponse
Int -> ReadS DisassociateConfigurationItemsFromApplicationResponse
ReadS [DisassociateConfigurationItemsFromApplicationResponse]
(Int
-> ReadS DisassociateConfigurationItemsFromApplicationResponse)
-> ReadS [DisassociateConfigurationItemsFromApplicationResponse]
-> ReadPrec DisassociateConfigurationItemsFromApplicationResponse
-> ReadPrec [DisassociateConfigurationItemsFromApplicationResponse]
-> Read DisassociateConfigurationItemsFromApplicationResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateConfigurationItemsFromApplicationResponse]
$creadListPrec :: ReadPrec [DisassociateConfigurationItemsFromApplicationResponse]
readPrec :: ReadPrec DisassociateConfigurationItemsFromApplicationResponse
$creadPrec :: ReadPrec DisassociateConfigurationItemsFromApplicationResponse
readList :: ReadS [DisassociateConfigurationItemsFromApplicationResponse]
$creadList :: ReadS [DisassociateConfigurationItemsFromApplicationResponse]
readsPrec :: Int -> ReadS DisassociateConfigurationItemsFromApplicationResponse
$creadsPrec :: Int -> ReadS DisassociateConfigurationItemsFromApplicationResponse
Prelude.Read, Int
-> DisassociateConfigurationItemsFromApplicationResponse -> ShowS
[DisassociateConfigurationItemsFromApplicationResponse] -> ShowS
DisassociateConfigurationItemsFromApplicationResponse -> String
(Int
-> DisassociateConfigurationItemsFromApplicationResponse -> ShowS)
-> (DisassociateConfigurationItemsFromApplicationResponse
-> String)
-> ([DisassociateConfigurationItemsFromApplicationResponse]
-> ShowS)
-> Show DisassociateConfigurationItemsFromApplicationResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateConfigurationItemsFromApplicationResponse] -> ShowS
$cshowList :: [DisassociateConfigurationItemsFromApplicationResponse] -> ShowS
show :: DisassociateConfigurationItemsFromApplicationResponse -> String
$cshow :: DisassociateConfigurationItemsFromApplicationResponse -> String
showsPrec :: Int
-> DisassociateConfigurationItemsFromApplicationResponse -> ShowS
$cshowsPrec :: Int
-> DisassociateConfigurationItemsFromApplicationResponse -> ShowS
Prelude.Show, (forall x.
DisassociateConfigurationItemsFromApplicationResponse
-> Rep DisassociateConfigurationItemsFromApplicationResponse x)
-> (forall x.
Rep DisassociateConfigurationItemsFromApplicationResponse x
-> DisassociateConfigurationItemsFromApplicationResponse)
-> Generic DisassociateConfigurationItemsFromApplicationResponse
forall x.
Rep DisassociateConfigurationItemsFromApplicationResponse x
-> DisassociateConfigurationItemsFromApplicationResponse
forall x.
DisassociateConfigurationItemsFromApplicationResponse
-> Rep DisassociateConfigurationItemsFromApplicationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateConfigurationItemsFromApplicationResponse x
-> DisassociateConfigurationItemsFromApplicationResponse
$cfrom :: forall x.
DisassociateConfigurationItemsFromApplicationResponse
-> Rep DisassociateConfigurationItemsFromApplicationResponse x
Prelude.Generic)
newDisassociateConfigurationItemsFromApplicationResponse ::
Prelude.Int ->
DisassociateConfigurationItemsFromApplicationResponse
newDisassociateConfigurationItemsFromApplicationResponse :: Int -> DisassociateConfigurationItemsFromApplicationResponse
newDisassociateConfigurationItemsFromApplicationResponse
Int
pHttpStatus_ =
DisassociateConfigurationItemsFromApplicationResponse' :: Int -> DisassociateConfigurationItemsFromApplicationResponse
DisassociateConfigurationItemsFromApplicationResponse'
{ $sel:httpStatus:DisassociateConfigurationItemsFromApplicationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
disassociateConfigurationItemsFromApplicationResponse_httpStatus :: Lens.Lens' DisassociateConfigurationItemsFromApplicationResponse Prelude.Int
disassociateConfigurationItemsFromApplicationResponse_httpStatus :: (Int -> f Int)
-> DisassociateConfigurationItemsFromApplicationResponse
-> f DisassociateConfigurationItemsFromApplicationResponse
disassociateConfigurationItemsFromApplicationResponse_httpStatus = (DisassociateConfigurationItemsFromApplicationResponse -> Int)
-> (DisassociateConfigurationItemsFromApplicationResponse
-> Int -> DisassociateConfigurationItemsFromApplicationResponse)
-> Lens
DisassociateConfigurationItemsFromApplicationResponse
DisassociateConfigurationItemsFromApplicationResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateConfigurationItemsFromApplicationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateConfigurationItemsFromApplicationResponse' :: DisassociateConfigurationItemsFromApplicationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DisassociateConfigurationItemsFromApplicationResponse
s@DisassociateConfigurationItemsFromApplicationResponse' {} Int
a -> DisassociateConfigurationItemsFromApplicationResponse
s {$sel:httpStatus:DisassociateConfigurationItemsFromApplicationResponse' :: Int
httpStatus = Int
a} :: DisassociateConfigurationItemsFromApplicationResponse)
instance
Prelude.NFData
DisassociateConfigurationItemsFromApplicationResponse