{-# 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.ECS.SubmitAttachmentStateChanges
(
SubmitAttachmentStateChanges (..),
newSubmitAttachmentStateChanges,
submitAttachmentStateChanges_cluster,
submitAttachmentStateChanges_attachments,
SubmitAttachmentStateChangesResponse (..),
newSubmitAttachmentStateChangesResponse,
submitAttachmentStateChangesResponse_acknowledgment,
submitAttachmentStateChangesResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ECS.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data SubmitAttachmentStateChanges = SubmitAttachmentStateChanges'
{
SubmitAttachmentStateChanges -> Maybe Text
cluster :: Prelude.Maybe Prelude.Text,
SubmitAttachmentStateChanges -> [AttachmentStateChange]
attachments :: [AttachmentStateChange]
}
deriving (SubmitAttachmentStateChanges
-> SubmitAttachmentStateChanges -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SubmitAttachmentStateChanges
-> SubmitAttachmentStateChanges -> Bool
$c/= :: SubmitAttachmentStateChanges
-> SubmitAttachmentStateChanges -> Bool
== :: SubmitAttachmentStateChanges
-> SubmitAttachmentStateChanges -> Bool
$c== :: SubmitAttachmentStateChanges
-> SubmitAttachmentStateChanges -> Bool
Prelude.Eq, ReadPrec [SubmitAttachmentStateChanges]
ReadPrec SubmitAttachmentStateChanges
Int -> ReadS SubmitAttachmentStateChanges
ReadS [SubmitAttachmentStateChanges]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SubmitAttachmentStateChanges]
$creadListPrec :: ReadPrec [SubmitAttachmentStateChanges]
readPrec :: ReadPrec SubmitAttachmentStateChanges
$creadPrec :: ReadPrec SubmitAttachmentStateChanges
readList :: ReadS [SubmitAttachmentStateChanges]
$creadList :: ReadS [SubmitAttachmentStateChanges]
readsPrec :: Int -> ReadS SubmitAttachmentStateChanges
$creadsPrec :: Int -> ReadS SubmitAttachmentStateChanges
Prelude.Read, Int -> SubmitAttachmentStateChanges -> ShowS
[SubmitAttachmentStateChanges] -> ShowS
SubmitAttachmentStateChanges -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SubmitAttachmentStateChanges] -> ShowS
$cshowList :: [SubmitAttachmentStateChanges] -> ShowS
show :: SubmitAttachmentStateChanges -> String
$cshow :: SubmitAttachmentStateChanges -> String
showsPrec :: Int -> SubmitAttachmentStateChanges -> ShowS
$cshowsPrec :: Int -> SubmitAttachmentStateChanges -> ShowS
Prelude.Show, forall x.
Rep SubmitAttachmentStateChanges x -> SubmitAttachmentStateChanges
forall x.
SubmitAttachmentStateChanges -> Rep SubmitAttachmentStateChanges x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SubmitAttachmentStateChanges x -> SubmitAttachmentStateChanges
$cfrom :: forall x.
SubmitAttachmentStateChanges -> Rep SubmitAttachmentStateChanges x
Prelude.Generic)
newSubmitAttachmentStateChanges ::
SubmitAttachmentStateChanges
newSubmitAttachmentStateChanges :: SubmitAttachmentStateChanges
newSubmitAttachmentStateChanges =
SubmitAttachmentStateChanges'
{ $sel:cluster:SubmitAttachmentStateChanges' :: Maybe Text
cluster =
forall a. Maybe a
Prelude.Nothing,
$sel:attachments:SubmitAttachmentStateChanges' :: [AttachmentStateChange]
attachments = forall a. Monoid a => a
Prelude.mempty
}
submitAttachmentStateChanges_cluster :: Lens.Lens' SubmitAttachmentStateChanges (Prelude.Maybe Prelude.Text)
submitAttachmentStateChanges_cluster :: Lens' SubmitAttachmentStateChanges (Maybe Text)
submitAttachmentStateChanges_cluster = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubmitAttachmentStateChanges' {Maybe Text
cluster :: Maybe Text
$sel:cluster:SubmitAttachmentStateChanges' :: SubmitAttachmentStateChanges -> Maybe Text
cluster} -> Maybe Text
cluster) (\s :: SubmitAttachmentStateChanges
s@SubmitAttachmentStateChanges' {} Maybe Text
a -> SubmitAttachmentStateChanges
s {$sel:cluster:SubmitAttachmentStateChanges' :: Maybe Text
cluster = Maybe Text
a} :: SubmitAttachmentStateChanges)
submitAttachmentStateChanges_attachments :: Lens.Lens' SubmitAttachmentStateChanges [AttachmentStateChange]
submitAttachmentStateChanges_attachments :: Lens' SubmitAttachmentStateChanges [AttachmentStateChange]
submitAttachmentStateChanges_attachments = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubmitAttachmentStateChanges' {[AttachmentStateChange]
attachments :: [AttachmentStateChange]
$sel:attachments:SubmitAttachmentStateChanges' :: SubmitAttachmentStateChanges -> [AttachmentStateChange]
attachments} -> [AttachmentStateChange]
attachments) (\s :: SubmitAttachmentStateChanges
s@SubmitAttachmentStateChanges' {} [AttachmentStateChange]
a -> SubmitAttachmentStateChanges
s {$sel:attachments:SubmitAttachmentStateChanges' :: [AttachmentStateChange]
attachments = [AttachmentStateChange]
a} :: SubmitAttachmentStateChanges) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest SubmitAttachmentStateChanges where
type
AWSResponse SubmitAttachmentStateChanges =
SubmitAttachmentStateChangesResponse
request :: (Service -> Service)
-> SubmitAttachmentStateChanges
-> Request SubmitAttachmentStateChanges
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 SubmitAttachmentStateChanges
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SubmitAttachmentStateChanges)))
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 -> SubmitAttachmentStateChangesResponse
SubmitAttachmentStateChangesResponse'
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
"acknowledgment")
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
SubmitAttachmentStateChanges
where
hashWithSalt :: Int -> SubmitAttachmentStateChanges -> Int
hashWithSalt Int
_salt SubmitAttachmentStateChanges' {[AttachmentStateChange]
Maybe Text
attachments :: [AttachmentStateChange]
cluster :: Maybe Text
$sel:attachments:SubmitAttachmentStateChanges' :: SubmitAttachmentStateChanges -> [AttachmentStateChange]
$sel:cluster:SubmitAttachmentStateChanges' :: SubmitAttachmentStateChanges -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cluster
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [AttachmentStateChange]
attachments
instance Prelude.NFData SubmitAttachmentStateChanges where
rnf :: SubmitAttachmentStateChanges -> ()
rnf SubmitAttachmentStateChanges' {[AttachmentStateChange]
Maybe Text
attachments :: [AttachmentStateChange]
cluster :: Maybe Text
$sel:attachments:SubmitAttachmentStateChanges' :: SubmitAttachmentStateChanges -> [AttachmentStateChange]
$sel:cluster:SubmitAttachmentStateChanges' :: SubmitAttachmentStateChanges -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cluster
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [AttachmentStateChange]
attachments
instance Data.ToHeaders SubmitAttachmentStateChanges where
toHeaders :: SubmitAttachmentStateChanges -> 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
"AmazonEC2ContainerServiceV20141113.SubmitAttachmentStateChanges" ::
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 SubmitAttachmentStateChanges where
toJSON :: SubmitAttachmentStateChanges -> Value
toJSON SubmitAttachmentStateChanges' {[AttachmentStateChange]
Maybe Text
attachments :: [AttachmentStateChange]
cluster :: Maybe Text
$sel:attachments:SubmitAttachmentStateChanges' :: SubmitAttachmentStateChanges -> [AttachmentStateChange]
$sel:cluster:SubmitAttachmentStateChanges' :: SubmitAttachmentStateChanges -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"cluster" 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
cluster,
forall a. a -> Maybe a
Prelude.Just (Key
"attachments" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [AttachmentStateChange]
attachments)
]
)
instance Data.ToPath SubmitAttachmentStateChanges where
toPath :: SubmitAttachmentStateChanges -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SubmitAttachmentStateChanges where
toQuery :: SubmitAttachmentStateChanges -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SubmitAttachmentStateChangesResponse = SubmitAttachmentStateChangesResponse'
{
SubmitAttachmentStateChangesResponse -> Maybe Text
acknowledgment :: Prelude.Maybe Prelude.Text,
SubmitAttachmentStateChangesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SubmitAttachmentStateChangesResponse
-> SubmitAttachmentStateChangesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SubmitAttachmentStateChangesResponse
-> SubmitAttachmentStateChangesResponse -> Bool
$c/= :: SubmitAttachmentStateChangesResponse
-> SubmitAttachmentStateChangesResponse -> Bool
== :: SubmitAttachmentStateChangesResponse
-> SubmitAttachmentStateChangesResponse -> Bool
$c== :: SubmitAttachmentStateChangesResponse
-> SubmitAttachmentStateChangesResponse -> Bool
Prelude.Eq, ReadPrec [SubmitAttachmentStateChangesResponse]
ReadPrec SubmitAttachmentStateChangesResponse
Int -> ReadS SubmitAttachmentStateChangesResponse
ReadS [SubmitAttachmentStateChangesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SubmitAttachmentStateChangesResponse]
$creadListPrec :: ReadPrec [SubmitAttachmentStateChangesResponse]
readPrec :: ReadPrec SubmitAttachmentStateChangesResponse
$creadPrec :: ReadPrec SubmitAttachmentStateChangesResponse
readList :: ReadS [SubmitAttachmentStateChangesResponse]
$creadList :: ReadS [SubmitAttachmentStateChangesResponse]
readsPrec :: Int -> ReadS SubmitAttachmentStateChangesResponse
$creadsPrec :: Int -> ReadS SubmitAttachmentStateChangesResponse
Prelude.Read, Int -> SubmitAttachmentStateChangesResponse -> ShowS
[SubmitAttachmentStateChangesResponse] -> ShowS
SubmitAttachmentStateChangesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SubmitAttachmentStateChangesResponse] -> ShowS
$cshowList :: [SubmitAttachmentStateChangesResponse] -> ShowS
show :: SubmitAttachmentStateChangesResponse -> String
$cshow :: SubmitAttachmentStateChangesResponse -> String
showsPrec :: Int -> SubmitAttachmentStateChangesResponse -> ShowS
$cshowsPrec :: Int -> SubmitAttachmentStateChangesResponse -> ShowS
Prelude.Show, forall x.
Rep SubmitAttachmentStateChangesResponse x
-> SubmitAttachmentStateChangesResponse
forall x.
SubmitAttachmentStateChangesResponse
-> Rep SubmitAttachmentStateChangesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SubmitAttachmentStateChangesResponse x
-> SubmitAttachmentStateChangesResponse
$cfrom :: forall x.
SubmitAttachmentStateChangesResponse
-> Rep SubmitAttachmentStateChangesResponse x
Prelude.Generic)
newSubmitAttachmentStateChangesResponse ::
Prelude.Int ->
SubmitAttachmentStateChangesResponse
newSubmitAttachmentStateChangesResponse :: Int -> SubmitAttachmentStateChangesResponse
newSubmitAttachmentStateChangesResponse Int
pHttpStatus_ =
SubmitAttachmentStateChangesResponse'
{ $sel:acknowledgment:SubmitAttachmentStateChangesResponse' :: Maybe Text
acknowledgment =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SubmitAttachmentStateChangesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
submitAttachmentStateChangesResponse_acknowledgment :: Lens.Lens' SubmitAttachmentStateChangesResponse (Prelude.Maybe Prelude.Text)
submitAttachmentStateChangesResponse_acknowledgment :: Lens' SubmitAttachmentStateChangesResponse (Maybe Text)
submitAttachmentStateChangesResponse_acknowledgment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubmitAttachmentStateChangesResponse' {Maybe Text
acknowledgment :: Maybe Text
$sel:acknowledgment:SubmitAttachmentStateChangesResponse' :: SubmitAttachmentStateChangesResponse -> Maybe Text
acknowledgment} -> Maybe Text
acknowledgment) (\s :: SubmitAttachmentStateChangesResponse
s@SubmitAttachmentStateChangesResponse' {} Maybe Text
a -> SubmitAttachmentStateChangesResponse
s {$sel:acknowledgment:SubmitAttachmentStateChangesResponse' :: Maybe Text
acknowledgment = Maybe Text
a} :: SubmitAttachmentStateChangesResponse)
submitAttachmentStateChangesResponse_httpStatus :: Lens.Lens' SubmitAttachmentStateChangesResponse Prelude.Int
submitAttachmentStateChangesResponse_httpStatus :: Lens' SubmitAttachmentStateChangesResponse Int
submitAttachmentStateChangesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubmitAttachmentStateChangesResponse' {Int
httpStatus :: Int
$sel:httpStatus:SubmitAttachmentStateChangesResponse' :: SubmitAttachmentStateChangesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SubmitAttachmentStateChangesResponse
s@SubmitAttachmentStateChangesResponse' {} Int
a -> SubmitAttachmentStateChangesResponse
s {$sel:httpStatus:SubmitAttachmentStateChangesResponse' :: Int
httpStatus = Int
a} :: SubmitAttachmentStateChangesResponse)
instance
Prelude.NFData
SubmitAttachmentStateChangesResponse
where
rnf :: SubmitAttachmentStateChangesResponse -> ()
rnf SubmitAttachmentStateChangesResponse' {Int
Maybe Text
httpStatus :: Int
acknowledgment :: Maybe Text
$sel:httpStatus:SubmitAttachmentStateChangesResponse' :: SubmitAttachmentStateChangesResponse -> Int
$sel:acknowledgment:SubmitAttachmentStateChangesResponse' :: SubmitAttachmentStateChangesResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
acknowledgment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus