{-# 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.Redshift.CancelResize
(
CancelResize (..),
newCancelResize,
cancelResize_clusterIdentifier,
ResizeProgressMessage (..),
newResizeProgressMessage,
resizeProgressMessage_avgResizeRateInMegaBytesPerSecond,
resizeProgressMessage_dataTransferProgressPercent,
resizeProgressMessage_elapsedTimeInSeconds,
resizeProgressMessage_estimatedTimeToCompletionInSeconds,
resizeProgressMessage_importTablesCompleted,
resizeProgressMessage_importTablesInProgress,
resizeProgressMessage_importTablesNotStarted,
resizeProgressMessage_message,
resizeProgressMessage_progressInMegaBytes,
resizeProgressMessage_resizeType,
resizeProgressMessage_status,
resizeProgressMessage_targetClusterType,
resizeProgressMessage_targetEncryptionType,
resizeProgressMessage_targetNodeType,
resizeProgressMessage_targetNumberOfNodes,
resizeProgressMessage_totalResizeDataInMegaBytes,
)
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 Amazonka.Redshift.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CancelResize = CancelResize'
{
CancelResize -> Text
clusterIdentifier :: Prelude.Text
}
deriving (CancelResize -> CancelResize -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CancelResize -> CancelResize -> Bool
$c/= :: CancelResize -> CancelResize -> Bool
== :: CancelResize -> CancelResize -> Bool
$c== :: CancelResize -> CancelResize -> Bool
Prelude.Eq, ReadPrec [CancelResize]
ReadPrec CancelResize
Int -> ReadS CancelResize
ReadS [CancelResize]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CancelResize]
$creadListPrec :: ReadPrec [CancelResize]
readPrec :: ReadPrec CancelResize
$creadPrec :: ReadPrec CancelResize
readList :: ReadS [CancelResize]
$creadList :: ReadS [CancelResize]
readsPrec :: Int -> ReadS CancelResize
$creadsPrec :: Int -> ReadS CancelResize
Prelude.Read, Int -> CancelResize -> ShowS
[CancelResize] -> ShowS
CancelResize -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CancelResize] -> ShowS
$cshowList :: [CancelResize] -> ShowS
show :: CancelResize -> String
$cshow :: CancelResize -> String
showsPrec :: Int -> CancelResize -> ShowS
$cshowsPrec :: Int -> CancelResize -> ShowS
Prelude.Show, forall x. Rep CancelResize x -> CancelResize
forall x. CancelResize -> Rep CancelResize x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CancelResize x -> CancelResize
$cfrom :: forall x. CancelResize -> Rep CancelResize x
Prelude.Generic)
newCancelResize ::
Prelude.Text ->
CancelResize
newCancelResize :: Text -> CancelResize
newCancelResize Text
pClusterIdentifier_ =
CancelResize'
{ $sel:clusterIdentifier:CancelResize' :: Text
clusterIdentifier =
Text
pClusterIdentifier_
}
cancelResize_clusterIdentifier :: Lens.Lens' CancelResize Prelude.Text
cancelResize_clusterIdentifier :: Lens' CancelResize Text
cancelResize_clusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelResize' {Text
clusterIdentifier :: Text
$sel:clusterIdentifier:CancelResize' :: CancelResize -> Text
clusterIdentifier} -> Text
clusterIdentifier) (\s :: CancelResize
s@CancelResize' {} Text
a -> CancelResize
s {$sel:clusterIdentifier:CancelResize' :: Text
clusterIdentifier = Text
a} :: CancelResize)
instance Core.AWSRequest CancelResize where
type AWSResponse CancelResize = ResizeProgressMessage
request :: (Service -> Service) -> CancelResize -> Request CancelResize
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 CancelResize
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CancelResize)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"CancelResizeResult"
(\Int
s ResponseHeaders
h [Node]
x -> forall a. FromXML a => [Node] -> Either String a
Data.parseXML [Node]
x)
instance Prelude.Hashable CancelResize where
hashWithSalt :: Int -> CancelResize -> Int
hashWithSalt Int
_salt CancelResize' {Text
clusterIdentifier :: Text
$sel:clusterIdentifier:CancelResize' :: CancelResize -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clusterIdentifier
instance Prelude.NFData CancelResize where
rnf :: CancelResize -> ()
rnf CancelResize' {Text
clusterIdentifier :: Text
$sel:clusterIdentifier:CancelResize' :: CancelResize -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
clusterIdentifier
instance Data.ToHeaders CancelResize where
toHeaders :: CancelResize -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CancelResize where
toPath :: CancelResize -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CancelResize where
toQuery :: CancelResize -> QueryString
toQuery CancelResize' {Text
clusterIdentifier :: Text
$sel:clusterIdentifier:CancelResize' :: CancelResize -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"CancelResize" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2012-12-01" :: Prelude.ByteString),
ByteString
"ClusterIdentifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
clusterIdentifier
]