{-# 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.UpdateDocumentDefaultVersion
(
UpdateDocumentDefaultVersion (..),
newUpdateDocumentDefaultVersion,
updateDocumentDefaultVersion_name,
updateDocumentDefaultVersion_documentVersion,
UpdateDocumentDefaultVersionResponse (..),
newUpdateDocumentDefaultVersionResponse,
updateDocumentDefaultVersionResponse_description,
updateDocumentDefaultVersionResponse_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 UpdateDocumentDefaultVersion = UpdateDocumentDefaultVersion'
{
UpdateDocumentDefaultVersion -> Text
name :: Prelude.Text,
UpdateDocumentDefaultVersion -> Text
documentVersion :: Prelude.Text
}
deriving (UpdateDocumentDefaultVersion
-> UpdateDocumentDefaultVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDocumentDefaultVersion
-> UpdateDocumentDefaultVersion -> Bool
$c/= :: UpdateDocumentDefaultVersion
-> UpdateDocumentDefaultVersion -> Bool
== :: UpdateDocumentDefaultVersion
-> UpdateDocumentDefaultVersion -> Bool
$c== :: UpdateDocumentDefaultVersion
-> UpdateDocumentDefaultVersion -> Bool
Prelude.Eq, ReadPrec [UpdateDocumentDefaultVersion]
ReadPrec UpdateDocumentDefaultVersion
Int -> ReadS UpdateDocumentDefaultVersion
ReadS [UpdateDocumentDefaultVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDocumentDefaultVersion]
$creadListPrec :: ReadPrec [UpdateDocumentDefaultVersion]
readPrec :: ReadPrec UpdateDocumentDefaultVersion
$creadPrec :: ReadPrec UpdateDocumentDefaultVersion
readList :: ReadS [UpdateDocumentDefaultVersion]
$creadList :: ReadS [UpdateDocumentDefaultVersion]
readsPrec :: Int -> ReadS UpdateDocumentDefaultVersion
$creadsPrec :: Int -> ReadS UpdateDocumentDefaultVersion
Prelude.Read, Int -> UpdateDocumentDefaultVersion -> ShowS
[UpdateDocumentDefaultVersion] -> ShowS
UpdateDocumentDefaultVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDocumentDefaultVersion] -> ShowS
$cshowList :: [UpdateDocumentDefaultVersion] -> ShowS
show :: UpdateDocumentDefaultVersion -> String
$cshow :: UpdateDocumentDefaultVersion -> String
showsPrec :: Int -> UpdateDocumentDefaultVersion -> ShowS
$cshowsPrec :: Int -> UpdateDocumentDefaultVersion -> ShowS
Prelude.Show, forall x.
Rep UpdateDocumentDefaultVersion x -> UpdateDocumentDefaultVersion
forall x.
UpdateDocumentDefaultVersion -> Rep UpdateDocumentDefaultVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDocumentDefaultVersion x -> UpdateDocumentDefaultVersion
$cfrom :: forall x.
UpdateDocumentDefaultVersion -> Rep UpdateDocumentDefaultVersion x
Prelude.Generic)
newUpdateDocumentDefaultVersion ::
Prelude.Text ->
Prelude.Text ->
UpdateDocumentDefaultVersion
newUpdateDocumentDefaultVersion :: Text -> Text -> UpdateDocumentDefaultVersion
newUpdateDocumentDefaultVersion
Text
pName_
Text
pDocumentVersion_ =
UpdateDocumentDefaultVersion'
{ $sel:name:UpdateDocumentDefaultVersion' :: Text
name = Text
pName_,
$sel:documentVersion:UpdateDocumentDefaultVersion' :: Text
documentVersion = Text
pDocumentVersion_
}
updateDocumentDefaultVersion_name :: Lens.Lens' UpdateDocumentDefaultVersion Prelude.Text
updateDocumentDefaultVersion_name :: Lens' UpdateDocumentDefaultVersion Text
updateDocumentDefaultVersion_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDocumentDefaultVersion' {Text
name :: Text
$sel:name:UpdateDocumentDefaultVersion' :: UpdateDocumentDefaultVersion -> Text
name} -> Text
name) (\s :: UpdateDocumentDefaultVersion
s@UpdateDocumentDefaultVersion' {} Text
a -> UpdateDocumentDefaultVersion
s {$sel:name:UpdateDocumentDefaultVersion' :: Text
name = Text
a} :: UpdateDocumentDefaultVersion)
updateDocumentDefaultVersion_documentVersion :: Lens.Lens' UpdateDocumentDefaultVersion Prelude.Text
updateDocumentDefaultVersion_documentVersion :: Lens' UpdateDocumentDefaultVersion Text
updateDocumentDefaultVersion_documentVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDocumentDefaultVersion' {Text
documentVersion :: Text
$sel:documentVersion:UpdateDocumentDefaultVersion' :: UpdateDocumentDefaultVersion -> Text
documentVersion} -> Text
documentVersion) (\s :: UpdateDocumentDefaultVersion
s@UpdateDocumentDefaultVersion' {} Text
a -> UpdateDocumentDefaultVersion
s {$sel:documentVersion:UpdateDocumentDefaultVersion' :: Text
documentVersion = Text
a} :: UpdateDocumentDefaultVersion)
instance Core.AWSRequest UpdateDocumentDefaultVersion where
type
AWSResponse UpdateDocumentDefaultVersion =
UpdateDocumentDefaultVersionResponse
request :: (Service -> Service)
-> UpdateDocumentDefaultVersion
-> Request UpdateDocumentDefaultVersion
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 UpdateDocumentDefaultVersion
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateDocumentDefaultVersion)))
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 DocumentDefaultVersionDescription
-> Int -> UpdateDocumentDefaultVersionResponse
UpdateDocumentDefaultVersionResponse'
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
"Description")
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
UpdateDocumentDefaultVersion
where
hashWithSalt :: Int -> UpdateDocumentDefaultVersion -> Int
hashWithSalt Int
_salt UpdateDocumentDefaultVersion' {Text
documentVersion :: Text
name :: Text
$sel:documentVersion:UpdateDocumentDefaultVersion' :: UpdateDocumentDefaultVersion -> Text
$sel:name:UpdateDocumentDefaultVersion' :: UpdateDocumentDefaultVersion -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
documentVersion
instance Prelude.NFData UpdateDocumentDefaultVersion where
rnf :: UpdateDocumentDefaultVersion -> ()
rnf UpdateDocumentDefaultVersion' {Text
documentVersion :: Text
name :: Text
$sel:documentVersion:UpdateDocumentDefaultVersion' :: UpdateDocumentDefaultVersion -> Text
$sel:name:UpdateDocumentDefaultVersion' :: UpdateDocumentDefaultVersion -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
documentVersion
instance Data.ToHeaders UpdateDocumentDefaultVersion where
toHeaders :: UpdateDocumentDefaultVersion -> 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.UpdateDocumentDefaultVersion" ::
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 UpdateDocumentDefaultVersion where
toJSON :: UpdateDocumentDefaultVersion -> Value
toJSON UpdateDocumentDefaultVersion' {Text
documentVersion :: Text
name :: Text
$sel:documentVersion:UpdateDocumentDefaultVersion' :: UpdateDocumentDefaultVersion -> Text
$sel:name:UpdateDocumentDefaultVersion' :: UpdateDocumentDefaultVersion -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just
(Key
"DocumentVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
documentVersion)
]
)
instance Data.ToPath UpdateDocumentDefaultVersion where
toPath :: UpdateDocumentDefaultVersion -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateDocumentDefaultVersion where
toQuery :: UpdateDocumentDefaultVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateDocumentDefaultVersionResponse = UpdateDocumentDefaultVersionResponse'
{
UpdateDocumentDefaultVersionResponse
-> Maybe DocumentDefaultVersionDescription
description :: Prelude.Maybe DocumentDefaultVersionDescription,
UpdateDocumentDefaultVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateDocumentDefaultVersionResponse
-> UpdateDocumentDefaultVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDocumentDefaultVersionResponse
-> UpdateDocumentDefaultVersionResponse -> Bool
$c/= :: UpdateDocumentDefaultVersionResponse
-> UpdateDocumentDefaultVersionResponse -> Bool
== :: UpdateDocumentDefaultVersionResponse
-> UpdateDocumentDefaultVersionResponse -> Bool
$c== :: UpdateDocumentDefaultVersionResponse
-> UpdateDocumentDefaultVersionResponse -> Bool
Prelude.Eq, ReadPrec [UpdateDocumentDefaultVersionResponse]
ReadPrec UpdateDocumentDefaultVersionResponse
Int -> ReadS UpdateDocumentDefaultVersionResponse
ReadS [UpdateDocumentDefaultVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDocumentDefaultVersionResponse]
$creadListPrec :: ReadPrec [UpdateDocumentDefaultVersionResponse]
readPrec :: ReadPrec UpdateDocumentDefaultVersionResponse
$creadPrec :: ReadPrec UpdateDocumentDefaultVersionResponse
readList :: ReadS [UpdateDocumentDefaultVersionResponse]
$creadList :: ReadS [UpdateDocumentDefaultVersionResponse]
readsPrec :: Int -> ReadS UpdateDocumentDefaultVersionResponse
$creadsPrec :: Int -> ReadS UpdateDocumentDefaultVersionResponse
Prelude.Read, Int -> UpdateDocumentDefaultVersionResponse -> ShowS
[UpdateDocumentDefaultVersionResponse] -> ShowS
UpdateDocumentDefaultVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDocumentDefaultVersionResponse] -> ShowS
$cshowList :: [UpdateDocumentDefaultVersionResponse] -> ShowS
show :: UpdateDocumentDefaultVersionResponse -> String
$cshow :: UpdateDocumentDefaultVersionResponse -> String
showsPrec :: Int -> UpdateDocumentDefaultVersionResponse -> ShowS
$cshowsPrec :: Int -> UpdateDocumentDefaultVersionResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateDocumentDefaultVersionResponse x
-> UpdateDocumentDefaultVersionResponse
forall x.
UpdateDocumentDefaultVersionResponse
-> Rep UpdateDocumentDefaultVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDocumentDefaultVersionResponse x
-> UpdateDocumentDefaultVersionResponse
$cfrom :: forall x.
UpdateDocumentDefaultVersionResponse
-> Rep UpdateDocumentDefaultVersionResponse x
Prelude.Generic)
newUpdateDocumentDefaultVersionResponse ::
Prelude.Int ->
UpdateDocumentDefaultVersionResponse
newUpdateDocumentDefaultVersionResponse :: Int -> UpdateDocumentDefaultVersionResponse
newUpdateDocumentDefaultVersionResponse Int
pHttpStatus_ =
UpdateDocumentDefaultVersionResponse'
{ $sel:description:UpdateDocumentDefaultVersionResponse' :: Maybe DocumentDefaultVersionDescription
description =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateDocumentDefaultVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateDocumentDefaultVersionResponse_description :: Lens.Lens' UpdateDocumentDefaultVersionResponse (Prelude.Maybe DocumentDefaultVersionDescription)
updateDocumentDefaultVersionResponse_description :: Lens'
UpdateDocumentDefaultVersionResponse
(Maybe DocumentDefaultVersionDescription)
updateDocumentDefaultVersionResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDocumentDefaultVersionResponse' {Maybe DocumentDefaultVersionDescription
description :: Maybe DocumentDefaultVersionDescription
$sel:description:UpdateDocumentDefaultVersionResponse' :: UpdateDocumentDefaultVersionResponse
-> Maybe DocumentDefaultVersionDescription
description} -> Maybe DocumentDefaultVersionDescription
description) (\s :: UpdateDocumentDefaultVersionResponse
s@UpdateDocumentDefaultVersionResponse' {} Maybe DocumentDefaultVersionDescription
a -> UpdateDocumentDefaultVersionResponse
s {$sel:description:UpdateDocumentDefaultVersionResponse' :: Maybe DocumentDefaultVersionDescription
description = Maybe DocumentDefaultVersionDescription
a} :: UpdateDocumentDefaultVersionResponse)
updateDocumentDefaultVersionResponse_httpStatus :: Lens.Lens' UpdateDocumentDefaultVersionResponse Prelude.Int
updateDocumentDefaultVersionResponse_httpStatus :: Lens' UpdateDocumentDefaultVersionResponse Int
updateDocumentDefaultVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDocumentDefaultVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateDocumentDefaultVersionResponse' :: UpdateDocumentDefaultVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateDocumentDefaultVersionResponse
s@UpdateDocumentDefaultVersionResponse' {} Int
a -> UpdateDocumentDefaultVersionResponse
s {$sel:httpStatus:UpdateDocumentDefaultVersionResponse' :: Int
httpStatus = Int
a} :: UpdateDocumentDefaultVersionResponse)
instance
Prelude.NFData
UpdateDocumentDefaultVersionResponse
where
rnf :: UpdateDocumentDefaultVersionResponse -> ()
rnf UpdateDocumentDefaultVersionResponse' {Int
Maybe DocumentDefaultVersionDescription
httpStatus :: Int
description :: Maybe DocumentDefaultVersionDescription
$sel:httpStatus:UpdateDocumentDefaultVersionResponse' :: UpdateDocumentDefaultVersionResponse -> Int
$sel:description:UpdateDocumentDefaultVersionResponse' :: UpdateDocumentDefaultVersionResponse
-> Maybe DocumentDefaultVersionDescription
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DocumentDefaultVersionDescription
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus