{-# 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.EC2.RequestSpotFleet
(
RequestSpotFleet (..),
newRequestSpotFleet,
requestSpotFleet_dryRun,
requestSpotFleet_spotFleetRequestConfig,
RequestSpotFleetResponse (..),
newRequestSpotFleetResponse,
requestSpotFleetResponse_spotFleetRequestId,
requestSpotFleetResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data RequestSpotFleet = RequestSpotFleet'
{
RequestSpotFleet -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
RequestSpotFleet -> SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
}
deriving (RequestSpotFleet -> RequestSpotFleet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequestSpotFleet -> RequestSpotFleet -> Bool
$c/= :: RequestSpotFleet -> RequestSpotFleet -> Bool
== :: RequestSpotFleet -> RequestSpotFleet -> Bool
$c== :: RequestSpotFleet -> RequestSpotFleet -> Bool
Prelude.Eq, ReadPrec [RequestSpotFleet]
ReadPrec RequestSpotFleet
Int -> ReadS RequestSpotFleet
ReadS [RequestSpotFleet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RequestSpotFleet]
$creadListPrec :: ReadPrec [RequestSpotFleet]
readPrec :: ReadPrec RequestSpotFleet
$creadPrec :: ReadPrec RequestSpotFleet
readList :: ReadS [RequestSpotFleet]
$creadList :: ReadS [RequestSpotFleet]
readsPrec :: Int -> ReadS RequestSpotFleet
$creadsPrec :: Int -> ReadS RequestSpotFleet
Prelude.Read, Int -> RequestSpotFleet -> ShowS
[RequestSpotFleet] -> ShowS
RequestSpotFleet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequestSpotFleet] -> ShowS
$cshowList :: [RequestSpotFleet] -> ShowS
show :: RequestSpotFleet -> String
$cshow :: RequestSpotFleet -> String
showsPrec :: Int -> RequestSpotFleet -> ShowS
$cshowsPrec :: Int -> RequestSpotFleet -> ShowS
Prelude.Show, forall x. Rep RequestSpotFleet x -> RequestSpotFleet
forall x. RequestSpotFleet -> Rep RequestSpotFleet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RequestSpotFleet x -> RequestSpotFleet
$cfrom :: forall x. RequestSpotFleet -> Rep RequestSpotFleet x
Prelude.Generic)
newRequestSpotFleet ::
SpotFleetRequestConfigData ->
RequestSpotFleet
newRequestSpotFleet :: SpotFleetRequestConfigData -> RequestSpotFleet
newRequestSpotFleet SpotFleetRequestConfigData
pSpotFleetRequestConfig_ =
RequestSpotFleet'
{ $sel:dryRun:RequestSpotFleet' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:spotFleetRequestConfig:RequestSpotFleet' :: SpotFleetRequestConfigData
spotFleetRequestConfig = SpotFleetRequestConfigData
pSpotFleetRequestConfig_
}
requestSpotFleet_dryRun :: Lens.Lens' RequestSpotFleet (Prelude.Maybe Prelude.Bool)
requestSpotFleet_dryRun :: Lens' RequestSpotFleet (Maybe Bool)
requestSpotFleet_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestSpotFleet' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:RequestSpotFleet' :: RequestSpotFleet -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: RequestSpotFleet
s@RequestSpotFleet' {} Maybe Bool
a -> RequestSpotFleet
s {$sel:dryRun:RequestSpotFleet' :: Maybe Bool
dryRun = Maybe Bool
a} :: RequestSpotFleet)
requestSpotFleet_spotFleetRequestConfig :: Lens.Lens' RequestSpotFleet SpotFleetRequestConfigData
requestSpotFleet_spotFleetRequestConfig :: Lens' RequestSpotFleet SpotFleetRequestConfigData
requestSpotFleet_spotFleetRequestConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestSpotFleet' {SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
$sel:spotFleetRequestConfig:RequestSpotFleet' :: RequestSpotFleet -> SpotFleetRequestConfigData
spotFleetRequestConfig} -> SpotFleetRequestConfigData
spotFleetRequestConfig) (\s :: RequestSpotFleet
s@RequestSpotFleet' {} SpotFleetRequestConfigData
a -> RequestSpotFleet
s {$sel:spotFleetRequestConfig:RequestSpotFleet' :: SpotFleetRequestConfigData
spotFleetRequestConfig = SpotFleetRequestConfigData
a} :: RequestSpotFleet)
instance Core.AWSRequest RequestSpotFleet where
type
AWSResponse RequestSpotFleet =
RequestSpotFleetResponse
request :: (Service -> Service)
-> RequestSpotFleet -> Request RequestSpotFleet
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 RequestSpotFleet
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse RequestSpotFleet)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text -> Int -> RequestSpotFleetResponse
RequestSpotFleetResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"spotFleetRequestId")
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 RequestSpotFleet where
hashWithSalt :: Int -> RequestSpotFleet -> Int
hashWithSalt Int
_salt RequestSpotFleet' {Maybe Bool
SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
dryRun :: Maybe Bool
$sel:spotFleetRequestConfig:RequestSpotFleet' :: RequestSpotFleet -> SpotFleetRequestConfigData
$sel:dryRun:RequestSpotFleet' :: RequestSpotFleet -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` SpotFleetRequestConfigData
spotFleetRequestConfig
instance Prelude.NFData RequestSpotFleet where
rnf :: RequestSpotFleet -> ()
rnf RequestSpotFleet' {Maybe Bool
SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
dryRun :: Maybe Bool
$sel:spotFleetRequestConfig:RequestSpotFleet' :: RequestSpotFleet -> SpotFleetRequestConfigData
$sel:dryRun:RequestSpotFleet' :: RequestSpotFleet -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf SpotFleetRequestConfigData
spotFleetRequestConfig
instance Data.ToHeaders RequestSpotFleet where
toHeaders :: RequestSpotFleet -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath RequestSpotFleet where
toPath :: RequestSpotFleet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RequestSpotFleet where
toQuery :: RequestSpotFleet -> QueryString
toQuery RequestSpotFleet' {Maybe Bool
SpotFleetRequestConfigData
spotFleetRequestConfig :: SpotFleetRequestConfigData
dryRun :: Maybe Bool
$sel:spotFleetRequestConfig:RequestSpotFleet' :: RequestSpotFleet -> SpotFleetRequestConfigData
$sel:dryRun:RequestSpotFleet' :: RequestSpotFleet -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"RequestSpotFleet" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"SpotFleetRequestConfig"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: SpotFleetRequestConfigData
spotFleetRequestConfig
]
data RequestSpotFleetResponse = RequestSpotFleetResponse'
{
RequestSpotFleetResponse -> Maybe Text
spotFleetRequestId :: Prelude.Maybe Prelude.Text,
RequestSpotFleetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
$c/= :: RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
== :: RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
$c== :: RequestSpotFleetResponse -> RequestSpotFleetResponse -> Bool
Prelude.Eq, ReadPrec [RequestSpotFleetResponse]
ReadPrec RequestSpotFleetResponse
Int -> ReadS RequestSpotFleetResponse
ReadS [RequestSpotFleetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RequestSpotFleetResponse]
$creadListPrec :: ReadPrec [RequestSpotFleetResponse]
readPrec :: ReadPrec RequestSpotFleetResponse
$creadPrec :: ReadPrec RequestSpotFleetResponse
readList :: ReadS [RequestSpotFleetResponse]
$creadList :: ReadS [RequestSpotFleetResponse]
readsPrec :: Int -> ReadS RequestSpotFleetResponse
$creadsPrec :: Int -> ReadS RequestSpotFleetResponse
Prelude.Read, Int -> RequestSpotFleetResponse -> ShowS
[RequestSpotFleetResponse] -> ShowS
RequestSpotFleetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequestSpotFleetResponse] -> ShowS
$cshowList :: [RequestSpotFleetResponse] -> ShowS
show :: RequestSpotFleetResponse -> String
$cshow :: RequestSpotFleetResponse -> String
showsPrec :: Int -> RequestSpotFleetResponse -> ShowS
$cshowsPrec :: Int -> RequestSpotFleetResponse -> ShowS
Prelude.Show, forall x.
Rep RequestSpotFleetResponse x -> RequestSpotFleetResponse
forall x.
RequestSpotFleetResponse -> Rep RequestSpotFleetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RequestSpotFleetResponse x -> RequestSpotFleetResponse
$cfrom :: forall x.
RequestSpotFleetResponse -> Rep RequestSpotFleetResponse x
Prelude.Generic)
newRequestSpotFleetResponse ::
Prelude.Int ->
RequestSpotFleetResponse
newRequestSpotFleetResponse :: Int -> RequestSpotFleetResponse
newRequestSpotFleetResponse Int
pHttpStatus_ =
RequestSpotFleetResponse'
{ $sel:spotFleetRequestId:RequestSpotFleetResponse' :: Maybe Text
spotFleetRequestId =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:RequestSpotFleetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
requestSpotFleetResponse_spotFleetRequestId :: Lens.Lens' RequestSpotFleetResponse (Prelude.Maybe Prelude.Text)
requestSpotFleetResponse_spotFleetRequestId :: Lens' RequestSpotFleetResponse (Maybe Text)
requestSpotFleetResponse_spotFleetRequestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestSpotFleetResponse' {Maybe Text
spotFleetRequestId :: Maybe Text
$sel:spotFleetRequestId:RequestSpotFleetResponse' :: RequestSpotFleetResponse -> Maybe Text
spotFleetRequestId} -> Maybe Text
spotFleetRequestId) (\s :: RequestSpotFleetResponse
s@RequestSpotFleetResponse' {} Maybe Text
a -> RequestSpotFleetResponse
s {$sel:spotFleetRequestId:RequestSpotFleetResponse' :: Maybe Text
spotFleetRequestId = Maybe Text
a} :: RequestSpotFleetResponse)
requestSpotFleetResponse_httpStatus :: Lens.Lens' RequestSpotFleetResponse Prelude.Int
requestSpotFleetResponse_httpStatus :: Lens' RequestSpotFleetResponse Int
requestSpotFleetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestSpotFleetResponse' {Int
httpStatus :: Int
$sel:httpStatus:RequestSpotFleetResponse' :: RequestSpotFleetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RequestSpotFleetResponse
s@RequestSpotFleetResponse' {} Int
a -> RequestSpotFleetResponse
s {$sel:httpStatus:RequestSpotFleetResponse' :: Int
httpStatus = Int
a} :: RequestSpotFleetResponse)
instance Prelude.NFData RequestSpotFleetResponse where
rnf :: RequestSpotFleetResponse -> ()
rnf RequestSpotFleetResponse' {Int
Maybe Text
httpStatus :: Int
spotFleetRequestId :: Maybe Text
$sel:httpStatus:RequestSpotFleetResponse' :: RequestSpotFleetResponse -> Int
$sel:spotFleetRequestId:RequestSpotFleetResponse' :: RequestSpotFleetResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
spotFleetRequestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus