{-# 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.AutoScaling.ResumeProcesses
(
ResumeProcesses (..),
newResumeProcesses,
resumeProcesses_scalingProcesses,
resumeProcesses_autoScalingGroupName,
ResumeProcessesResponse (..),
newResumeProcessesResponse,
)
where
import Amazonka.AutoScaling.Types
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
data ResumeProcesses = ResumeProcesses'
{
ResumeProcesses -> Maybe [Text]
scalingProcesses :: Prelude.Maybe [Prelude.Text],
ResumeProcesses -> Text
autoScalingGroupName :: Prelude.Text
}
deriving (ResumeProcesses -> ResumeProcesses -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ResumeProcesses -> ResumeProcesses -> Bool
$c/= :: ResumeProcesses -> ResumeProcesses -> Bool
== :: ResumeProcesses -> ResumeProcesses -> Bool
$c== :: ResumeProcesses -> ResumeProcesses -> Bool
Prelude.Eq, ReadPrec [ResumeProcesses]
ReadPrec ResumeProcesses
Int -> ReadS ResumeProcesses
ReadS [ResumeProcesses]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ResumeProcesses]
$creadListPrec :: ReadPrec [ResumeProcesses]
readPrec :: ReadPrec ResumeProcesses
$creadPrec :: ReadPrec ResumeProcesses
readList :: ReadS [ResumeProcesses]
$creadList :: ReadS [ResumeProcesses]
readsPrec :: Int -> ReadS ResumeProcesses
$creadsPrec :: Int -> ReadS ResumeProcesses
Prelude.Read, Int -> ResumeProcesses -> ShowS
[ResumeProcesses] -> ShowS
ResumeProcesses -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ResumeProcesses] -> ShowS
$cshowList :: [ResumeProcesses] -> ShowS
show :: ResumeProcesses -> String
$cshow :: ResumeProcesses -> String
showsPrec :: Int -> ResumeProcesses -> ShowS
$cshowsPrec :: Int -> ResumeProcesses -> ShowS
Prelude.Show, forall x. Rep ResumeProcesses x -> ResumeProcesses
forall x. ResumeProcesses -> Rep ResumeProcesses x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ResumeProcesses x -> ResumeProcesses
$cfrom :: forall x. ResumeProcesses -> Rep ResumeProcesses x
Prelude.Generic)
newResumeProcesses ::
Prelude.Text ->
ResumeProcesses
newResumeProcesses :: Text -> ResumeProcesses
newResumeProcesses Text
pAutoScalingGroupName_ =
ResumeProcesses'
{ $sel:scalingProcesses:ResumeProcesses' :: Maybe [Text]
scalingProcesses =
forall a. Maybe a
Prelude.Nothing,
$sel:autoScalingGroupName:ResumeProcesses' :: Text
autoScalingGroupName = Text
pAutoScalingGroupName_
}
resumeProcesses_scalingProcesses :: Lens.Lens' ResumeProcesses (Prelude.Maybe [Prelude.Text])
resumeProcesses_scalingProcesses :: Lens' ResumeProcesses (Maybe [Text])
resumeProcesses_scalingProcesses = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ResumeProcesses' {Maybe [Text]
scalingProcesses :: Maybe [Text]
$sel:scalingProcesses:ResumeProcesses' :: ResumeProcesses -> Maybe [Text]
scalingProcesses} -> Maybe [Text]
scalingProcesses) (\s :: ResumeProcesses
s@ResumeProcesses' {} Maybe [Text]
a -> ResumeProcesses
s {$sel:scalingProcesses:ResumeProcesses' :: Maybe [Text]
scalingProcesses = Maybe [Text]
a} :: ResumeProcesses) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
resumeProcesses_autoScalingGroupName :: Lens.Lens' ResumeProcesses Prelude.Text
resumeProcesses_autoScalingGroupName :: Lens' ResumeProcesses Text
resumeProcesses_autoScalingGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ResumeProcesses' {Text
autoScalingGroupName :: Text
$sel:autoScalingGroupName:ResumeProcesses' :: ResumeProcesses -> Text
autoScalingGroupName} -> Text
autoScalingGroupName) (\s :: ResumeProcesses
s@ResumeProcesses' {} Text
a -> ResumeProcesses
s {$sel:autoScalingGroupName:ResumeProcesses' :: Text
autoScalingGroupName = Text
a} :: ResumeProcesses)
instance Core.AWSRequest ResumeProcesses where
type
AWSResponse ResumeProcesses =
ResumeProcessesResponse
request :: (Service -> Service) -> ResumeProcesses -> Request ResumeProcesses
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ResumeProcesses
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ResumeProcesses)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull ResumeProcessesResponse
ResumeProcessesResponse'
instance Prelude.Hashable ResumeProcesses where
hashWithSalt :: Int -> ResumeProcesses -> Int
hashWithSalt Int
_salt ResumeProcesses' {Maybe [Text]
Text
autoScalingGroupName :: Text
scalingProcesses :: Maybe [Text]
$sel:autoScalingGroupName:ResumeProcesses' :: ResumeProcesses -> Text
$sel:scalingProcesses:ResumeProcesses' :: ResumeProcesses -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
scalingProcesses
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
autoScalingGroupName
instance Prelude.NFData ResumeProcesses where
rnf :: ResumeProcesses -> ()
rnf ResumeProcesses' {Maybe [Text]
Text
autoScalingGroupName :: Text
scalingProcesses :: Maybe [Text]
$sel:autoScalingGroupName:ResumeProcesses' :: ResumeProcesses -> Text
$sel:scalingProcesses:ResumeProcesses' :: ResumeProcesses -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
scalingProcesses
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
autoScalingGroupName
instance Data.ToHeaders ResumeProcesses where
toHeaders :: ResumeProcesses -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ResumeProcesses where
toPath :: ResumeProcesses -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ResumeProcesses where
toQuery :: ResumeProcesses -> QueryString
toQuery ResumeProcesses' {Maybe [Text]
Text
autoScalingGroupName :: Text
scalingProcesses :: Maybe [Text]
$sel:autoScalingGroupName:ResumeProcesses' :: ResumeProcesses -> Text
$sel:scalingProcesses:ResumeProcesses' :: ResumeProcesses -> Maybe [Text]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"ResumeProcesses" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2011-01-01" :: Prelude.ByteString),
ByteString
"ScalingProcesses"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
scalingProcesses
),
ByteString
"AutoScalingGroupName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
autoScalingGroupName
]
data ResumeProcessesResponse = ResumeProcessesResponse'
{
}
deriving (ResumeProcessesResponse -> ResumeProcessesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ResumeProcessesResponse -> ResumeProcessesResponse -> Bool
$c/= :: ResumeProcessesResponse -> ResumeProcessesResponse -> Bool
== :: ResumeProcessesResponse -> ResumeProcessesResponse -> Bool
$c== :: ResumeProcessesResponse -> ResumeProcessesResponse -> Bool
Prelude.Eq, ReadPrec [ResumeProcessesResponse]
ReadPrec ResumeProcessesResponse
Int -> ReadS ResumeProcessesResponse
ReadS [ResumeProcessesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ResumeProcessesResponse]
$creadListPrec :: ReadPrec [ResumeProcessesResponse]
readPrec :: ReadPrec ResumeProcessesResponse
$creadPrec :: ReadPrec ResumeProcessesResponse
readList :: ReadS [ResumeProcessesResponse]
$creadList :: ReadS [ResumeProcessesResponse]
readsPrec :: Int -> ReadS ResumeProcessesResponse
$creadsPrec :: Int -> ReadS ResumeProcessesResponse
Prelude.Read, Int -> ResumeProcessesResponse -> ShowS
[ResumeProcessesResponse] -> ShowS
ResumeProcessesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ResumeProcessesResponse] -> ShowS
$cshowList :: [ResumeProcessesResponse] -> ShowS
show :: ResumeProcessesResponse -> String
$cshow :: ResumeProcessesResponse -> String
showsPrec :: Int -> ResumeProcessesResponse -> ShowS
$cshowsPrec :: Int -> ResumeProcessesResponse -> ShowS
Prelude.Show, forall x. Rep ResumeProcessesResponse x -> ResumeProcessesResponse
forall x. ResumeProcessesResponse -> Rep ResumeProcessesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ResumeProcessesResponse x -> ResumeProcessesResponse
$cfrom :: forall x. ResumeProcessesResponse -> Rep ResumeProcessesResponse x
Prelude.Generic)
newResumeProcessesResponse ::
ResumeProcessesResponse
newResumeProcessesResponse :: ResumeProcessesResponse
newResumeProcessesResponse = ResumeProcessesResponse
ResumeProcessesResponse'
instance Prelude.NFData ResumeProcessesResponse where
rnf :: ResumeProcessesResponse -> ()
rnf ResumeProcessesResponse
_ = ()