{-# 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.DisassociateOpsItemRelatedItem
(
DisassociateOpsItemRelatedItem (..),
newDisassociateOpsItemRelatedItem,
disassociateOpsItemRelatedItem_opsItemId,
disassociateOpsItemRelatedItem_associationId,
DisassociateOpsItemRelatedItemResponse (..),
newDisassociateOpsItemRelatedItemResponse,
disassociateOpsItemRelatedItemResponse_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.SSM.Types
data DisassociateOpsItemRelatedItem = DisassociateOpsItemRelatedItem'
{
DisassociateOpsItemRelatedItem -> Text
opsItemId :: Prelude.Text,
DisassociateOpsItemRelatedItem -> Text
associationId :: Prelude.Text
}
deriving (DisassociateOpsItemRelatedItem
-> DisassociateOpsItemRelatedItem -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateOpsItemRelatedItem
-> DisassociateOpsItemRelatedItem -> Bool
$c/= :: DisassociateOpsItemRelatedItem
-> DisassociateOpsItemRelatedItem -> Bool
== :: DisassociateOpsItemRelatedItem
-> DisassociateOpsItemRelatedItem -> Bool
$c== :: DisassociateOpsItemRelatedItem
-> DisassociateOpsItemRelatedItem -> Bool
Prelude.Eq, ReadPrec [DisassociateOpsItemRelatedItem]
ReadPrec DisassociateOpsItemRelatedItem
Int -> ReadS DisassociateOpsItemRelatedItem
ReadS [DisassociateOpsItemRelatedItem]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateOpsItemRelatedItem]
$creadListPrec :: ReadPrec [DisassociateOpsItemRelatedItem]
readPrec :: ReadPrec DisassociateOpsItemRelatedItem
$creadPrec :: ReadPrec DisassociateOpsItemRelatedItem
readList :: ReadS [DisassociateOpsItemRelatedItem]
$creadList :: ReadS [DisassociateOpsItemRelatedItem]
readsPrec :: Int -> ReadS DisassociateOpsItemRelatedItem
$creadsPrec :: Int -> ReadS DisassociateOpsItemRelatedItem
Prelude.Read, Int -> DisassociateOpsItemRelatedItem -> ShowS
[DisassociateOpsItemRelatedItem] -> ShowS
DisassociateOpsItemRelatedItem -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateOpsItemRelatedItem] -> ShowS
$cshowList :: [DisassociateOpsItemRelatedItem] -> ShowS
show :: DisassociateOpsItemRelatedItem -> String
$cshow :: DisassociateOpsItemRelatedItem -> String
showsPrec :: Int -> DisassociateOpsItemRelatedItem -> ShowS
$cshowsPrec :: Int -> DisassociateOpsItemRelatedItem -> ShowS
Prelude.Show, forall x.
Rep DisassociateOpsItemRelatedItem x
-> DisassociateOpsItemRelatedItem
forall x.
DisassociateOpsItemRelatedItem
-> Rep DisassociateOpsItemRelatedItem x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateOpsItemRelatedItem x
-> DisassociateOpsItemRelatedItem
$cfrom :: forall x.
DisassociateOpsItemRelatedItem
-> Rep DisassociateOpsItemRelatedItem x
Prelude.Generic)
newDisassociateOpsItemRelatedItem ::
Prelude.Text ->
Prelude.Text ->
DisassociateOpsItemRelatedItem
newDisassociateOpsItemRelatedItem :: Text -> Text -> DisassociateOpsItemRelatedItem
newDisassociateOpsItemRelatedItem
Text
pOpsItemId_
Text
pAssociationId_ =
DisassociateOpsItemRelatedItem'
{ $sel:opsItemId:DisassociateOpsItemRelatedItem' :: Text
opsItemId =
Text
pOpsItemId_,
$sel:associationId:DisassociateOpsItemRelatedItem' :: Text
associationId = Text
pAssociationId_
}
disassociateOpsItemRelatedItem_opsItemId :: Lens.Lens' DisassociateOpsItemRelatedItem Prelude.Text
disassociateOpsItemRelatedItem_opsItemId :: Lens' DisassociateOpsItemRelatedItem Text
disassociateOpsItemRelatedItem_opsItemId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateOpsItemRelatedItem' {Text
opsItemId :: Text
$sel:opsItemId:DisassociateOpsItemRelatedItem' :: DisassociateOpsItemRelatedItem -> Text
opsItemId} -> Text
opsItemId) (\s :: DisassociateOpsItemRelatedItem
s@DisassociateOpsItemRelatedItem' {} Text
a -> DisassociateOpsItemRelatedItem
s {$sel:opsItemId:DisassociateOpsItemRelatedItem' :: Text
opsItemId = Text
a} :: DisassociateOpsItemRelatedItem)
disassociateOpsItemRelatedItem_associationId :: Lens.Lens' DisassociateOpsItemRelatedItem Prelude.Text
disassociateOpsItemRelatedItem_associationId :: Lens' DisassociateOpsItemRelatedItem Text
disassociateOpsItemRelatedItem_associationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateOpsItemRelatedItem' {Text
associationId :: Text
$sel:associationId:DisassociateOpsItemRelatedItem' :: DisassociateOpsItemRelatedItem -> Text
associationId} -> Text
associationId) (\s :: DisassociateOpsItemRelatedItem
s@DisassociateOpsItemRelatedItem' {} Text
a -> DisassociateOpsItemRelatedItem
s {$sel:associationId:DisassociateOpsItemRelatedItem' :: Text
associationId = Text
a} :: DisassociateOpsItemRelatedItem)
instance
Core.AWSRequest
DisassociateOpsItemRelatedItem
where
type
AWSResponse DisassociateOpsItemRelatedItem =
DisassociateOpsItemRelatedItemResponse
request :: (Service -> Service)
-> DisassociateOpsItemRelatedItem
-> Request DisassociateOpsItemRelatedItem
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 DisassociateOpsItemRelatedItem
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DisassociateOpsItemRelatedItem)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DisassociateOpsItemRelatedItemResponse
DisassociateOpsItemRelatedItemResponse'
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))
)
instance
Prelude.Hashable
DisassociateOpsItemRelatedItem
where
hashWithSalt :: Int -> DisassociateOpsItemRelatedItem -> Int
hashWithSalt
Int
_salt
DisassociateOpsItemRelatedItem' {Text
associationId :: Text
opsItemId :: Text
$sel:associationId:DisassociateOpsItemRelatedItem' :: DisassociateOpsItemRelatedItem -> Text
$sel:opsItemId:DisassociateOpsItemRelatedItem' :: DisassociateOpsItemRelatedItem -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
opsItemId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
associationId
instance
Prelude.NFData
DisassociateOpsItemRelatedItem
where
rnf :: DisassociateOpsItemRelatedItem -> ()
rnf DisassociateOpsItemRelatedItem' {Text
associationId :: Text
opsItemId :: Text
$sel:associationId:DisassociateOpsItemRelatedItem' :: DisassociateOpsItemRelatedItem -> Text
$sel:opsItemId:DisassociateOpsItemRelatedItem' :: DisassociateOpsItemRelatedItem -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
opsItemId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
associationId
instance
Data.ToHeaders
DisassociateOpsItemRelatedItem
where
toHeaders :: DisassociateOpsItemRelatedItem -> 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
"AmazonSSM.DisassociateOpsItemRelatedItem" ::
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 DisassociateOpsItemRelatedItem where
toJSON :: DisassociateOpsItemRelatedItem -> Value
toJSON DisassociateOpsItemRelatedItem' {Text
associationId :: Text
opsItemId :: Text
$sel:associationId:DisassociateOpsItemRelatedItem' :: DisassociateOpsItemRelatedItem -> Text
$sel:opsItemId:DisassociateOpsItemRelatedItem' :: DisassociateOpsItemRelatedItem -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"OpsItemId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
opsItemId),
forall a. a -> Maybe a
Prelude.Just
(Key
"AssociationId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
associationId)
]
)
instance Data.ToPath DisassociateOpsItemRelatedItem where
toPath :: DisassociateOpsItemRelatedItem -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DisassociateOpsItemRelatedItem where
toQuery :: DisassociateOpsItemRelatedItem -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisassociateOpsItemRelatedItemResponse = DisassociateOpsItemRelatedItemResponse'
{
DisassociateOpsItemRelatedItemResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DisassociateOpsItemRelatedItemResponse
-> DisassociateOpsItemRelatedItemResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateOpsItemRelatedItemResponse
-> DisassociateOpsItemRelatedItemResponse -> Bool
$c/= :: DisassociateOpsItemRelatedItemResponse
-> DisassociateOpsItemRelatedItemResponse -> Bool
== :: DisassociateOpsItemRelatedItemResponse
-> DisassociateOpsItemRelatedItemResponse -> Bool
$c== :: DisassociateOpsItemRelatedItemResponse
-> DisassociateOpsItemRelatedItemResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateOpsItemRelatedItemResponse]
ReadPrec DisassociateOpsItemRelatedItemResponse
Int -> ReadS DisassociateOpsItemRelatedItemResponse
ReadS [DisassociateOpsItemRelatedItemResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateOpsItemRelatedItemResponse]
$creadListPrec :: ReadPrec [DisassociateOpsItemRelatedItemResponse]
readPrec :: ReadPrec DisassociateOpsItemRelatedItemResponse
$creadPrec :: ReadPrec DisassociateOpsItemRelatedItemResponse
readList :: ReadS [DisassociateOpsItemRelatedItemResponse]
$creadList :: ReadS [DisassociateOpsItemRelatedItemResponse]
readsPrec :: Int -> ReadS DisassociateOpsItemRelatedItemResponse
$creadsPrec :: Int -> ReadS DisassociateOpsItemRelatedItemResponse
Prelude.Read, Int -> DisassociateOpsItemRelatedItemResponse -> ShowS
[DisassociateOpsItemRelatedItemResponse] -> ShowS
DisassociateOpsItemRelatedItemResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateOpsItemRelatedItemResponse] -> ShowS
$cshowList :: [DisassociateOpsItemRelatedItemResponse] -> ShowS
show :: DisassociateOpsItemRelatedItemResponse -> String
$cshow :: DisassociateOpsItemRelatedItemResponse -> String
showsPrec :: Int -> DisassociateOpsItemRelatedItemResponse -> ShowS
$cshowsPrec :: Int -> DisassociateOpsItemRelatedItemResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateOpsItemRelatedItemResponse x
-> DisassociateOpsItemRelatedItemResponse
forall x.
DisassociateOpsItemRelatedItemResponse
-> Rep DisassociateOpsItemRelatedItemResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateOpsItemRelatedItemResponse x
-> DisassociateOpsItemRelatedItemResponse
$cfrom :: forall x.
DisassociateOpsItemRelatedItemResponse
-> Rep DisassociateOpsItemRelatedItemResponse x
Prelude.Generic)
newDisassociateOpsItemRelatedItemResponse ::
Prelude.Int ->
DisassociateOpsItemRelatedItemResponse
newDisassociateOpsItemRelatedItemResponse :: Int -> DisassociateOpsItemRelatedItemResponse
newDisassociateOpsItemRelatedItemResponse
Int
pHttpStatus_ =
DisassociateOpsItemRelatedItemResponse'
{ $sel:httpStatus:DisassociateOpsItemRelatedItemResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
disassociateOpsItemRelatedItemResponse_httpStatus :: Lens.Lens' DisassociateOpsItemRelatedItemResponse Prelude.Int
disassociateOpsItemRelatedItemResponse_httpStatus :: Lens' DisassociateOpsItemRelatedItemResponse Int
disassociateOpsItemRelatedItemResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateOpsItemRelatedItemResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateOpsItemRelatedItemResponse' :: DisassociateOpsItemRelatedItemResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DisassociateOpsItemRelatedItemResponse
s@DisassociateOpsItemRelatedItemResponse' {} Int
a -> DisassociateOpsItemRelatedItemResponse
s {$sel:httpStatus:DisassociateOpsItemRelatedItemResponse' :: Int
httpStatus = Int
a} :: DisassociateOpsItemRelatedItemResponse)
instance
Prelude.NFData
DisassociateOpsItemRelatedItemResponse
where
rnf :: DisassociateOpsItemRelatedItemResponse -> ()
rnf DisassociateOpsItemRelatedItemResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateOpsItemRelatedItemResponse' :: DisassociateOpsItemRelatedItemResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus