{-# 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.AppStream.DisassociateApplicationFleet
(
DisassociateApplicationFleet (..),
newDisassociateApplicationFleet,
disassociateApplicationFleet_fleetName,
disassociateApplicationFleet_applicationArn,
DisassociateApplicationFleetResponse (..),
newDisassociateApplicationFleetResponse,
disassociateApplicationFleetResponse_httpStatus,
)
where
import Amazonka.AppStream.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 DisassociateApplicationFleet = DisassociateApplicationFleet'
{
DisassociateApplicationFleet -> Text
fleetName :: Prelude.Text,
DisassociateApplicationFleet -> Text
applicationArn :: Prelude.Text
}
deriving (DisassociateApplicationFleet
-> DisassociateApplicationFleet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateApplicationFleet
-> DisassociateApplicationFleet -> Bool
$c/= :: DisassociateApplicationFleet
-> DisassociateApplicationFleet -> Bool
== :: DisassociateApplicationFleet
-> DisassociateApplicationFleet -> Bool
$c== :: DisassociateApplicationFleet
-> DisassociateApplicationFleet -> Bool
Prelude.Eq, ReadPrec [DisassociateApplicationFleet]
ReadPrec DisassociateApplicationFleet
Int -> ReadS DisassociateApplicationFleet
ReadS [DisassociateApplicationFleet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateApplicationFleet]
$creadListPrec :: ReadPrec [DisassociateApplicationFleet]
readPrec :: ReadPrec DisassociateApplicationFleet
$creadPrec :: ReadPrec DisassociateApplicationFleet
readList :: ReadS [DisassociateApplicationFleet]
$creadList :: ReadS [DisassociateApplicationFleet]
readsPrec :: Int -> ReadS DisassociateApplicationFleet
$creadsPrec :: Int -> ReadS DisassociateApplicationFleet
Prelude.Read, Int -> DisassociateApplicationFleet -> ShowS
[DisassociateApplicationFleet] -> ShowS
DisassociateApplicationFleet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateApplicationFleet] -> ShowS
$cshowList :: [DisassociateApplicationFleet] -> ShowS
show :: DisassociateApplicationFleet -> String
$cshow :: DisassociateApplicationFleet -> String
showsPrec :: Int -> DisassociateApplicationFleet -> ShowS
$cshowsPrec :: Int -> DisassociateApplicationFleet -> ShowS
Prelude.Show, forall x.
Rep DisassociateApplicationFleet x -> DisassociateApplicationFleet
forall x.
DisassociateApplicationFleet -> Rep DisassociateApplicationFleet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateApplicationFleet x -> DisassociateApplicationFleet
$cfrom :: forall x.
DisassociateApplicationFleet -> Rep DisassociateApplicationFleet x
Prelude.Generic)
newDisassociateApplicationFleet ::
Prelude.Text ->
Prelude.Text ->
DisassociateApplicationFleet
newDisassociateApplicationFleet :: Text -> Text -> DisassociateApplicationFleet
newDisassociateApplicationFleet
Text
pFleetName_
Text
pApplicationArn_ =
DisassociateApplicationFleet'
{ $sel:fleetName:DisassociateApplicationFleet' :: Text
fleetName =
Text
pFleetName_,
$sel:applicationArn:DisassociateApplicationFleet' :: Text
applicationArn = Text
pApplicationArn_
}
disassociateApplicationFleet_fleetName :: Lens.Lens' DisassociateApplicationFleet Prelude.Text
disassociateApplicationFleet_fleetName :: Lens' DisassociateApplicationFleet Text
disassociateApplicationFleet_fleetName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateApplicationFleet' {Text
fleetName :: Text
$sel:fleetName:DisassociateApplicationFleet' :: DisassociateApplicationFleet -> Text
fleetName} -> Text
fleetName) (\s :: DisassociateApplicationFleet
s@DisassociateApplicationFleet' {} Text
a -> DisassociateApplicationFleet
s {$sel:fleetName:DisassociateApplicationFleet' :: Text
fleetName = Text
a} :: DisassociateApplicationFleet)
disassociateApplicationFleet_applicationArn :: Lens.Lens' DisassociateApplicationFleet Prelude.Text
disassociateApplicationFleet_applicationArn :: Lens' DisassociateApplicationFleet Text
disassociateApplicationFleet_applicationArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateApplicationFleet' {Text
applicationArn :: Text
$sel:applicationArn:DisassociateApplicationFleet' :: DisassociateApplicationFleet -> Text
applicationArn} -> Text
applicationArn) (\s :: DisassociateApplicationFleet
s@DisassociateApplicationFleet' {} Text
a -> DisassociateApplicationFleet
s {$sel:applicationArn:DisassociateApplicationFleet' :: Text
applicationArn = Text
a} :: DisassociateApplicationFleet)
instance Core.AWSRequest DisassociateApplicationFleet where
type
AWSResponse DisassociateApplicationFleet =
DisassociateApplicationFleetResponse
request :: (Service -> Service)
-> DisassociateApplicationFleet
-> Request DisassociateApplicationFleet
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 DisassociateApplicationFleet
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DisassociateApplicationFleet)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DisassociateApplicationFleetResponse
DisassociateApplicationFleetResponse'
forall (f :: * -> *) a b. Functor 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
DisassociateApplicationFleet
where
hashWithSalt :: Int -> DisassociateApplicationFleet -> Int
hashWithSalt Int
_salt DisassociateApplicationFleet' {Text
applicationArn :: Text
fleetName :: Text
$sel:applicationArn:DisassociateApplicationFleet' :: DisassociateApplicationFleet -> Text
$sel:fleetName:DisassociateApplicationFleet' :: DisassociateApplicationFleet -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
fleetName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationArn
instance Prelude.NFData DisassociateApplicationFleet where
rnf :: DisassociateApplicationFleet -> ()
rnf DisassociateApplicationFleet' {Text
applicationArn :: Text
fleetName :: Text
$sel:applicationArn:DisassociateApplicationFleet' :: DisassociateApplicationFleet -> Text
$sel:fleetName:DisassociateApplicationFleet' :: DisassociateApplicationFleet -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
fleetName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
applicationArn
instance Data.ToHeaders DisassociateApplicationFleet where
toHeaders :: DisassociateApplicationFleet -> 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
"PhotonAdminProxyService.DisassociateApplicationFleet" ::
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 DisassociateApplicationFleet where
toJSON :: DisassociateApplicationFleet -> Value
toJSON DisassociateApplicationFleet' {Text
applicationArn :: Text
fleetName :: Text
$sel:applicationArn:DisassociateApplicationFleet' :: DisassociateApplicationFleet -> Text
$sel:fleetName:DisassociateApplicationFleet' :: DisassociateApplicationFleet -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"FleetName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
fleetName),
forall a. a -> Maybe a
Prelude.Just
(Key
"ApplicationArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
applicationArn)
]
)
instance Data.ToPath DisassociateApplicationFleet where
toPath :: DisassociateApplicationFleet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DisassociateApplicationFleet where
toQuery :: DisassociateApplicationFleet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisassociateApplicationFleetResponse = DisassociateApplicationFleetResponse'
{
DisassociateApplicationFleetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DisassociateApplicationFleetResponse
-> DisassociateApplicationFleetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateApplicationFleetResponse
-> DisassociateApplicationFleetResponse -> Bool
$c/= :: DisassociateApplicationFleetResponse
-> DisassociateApplicationFleetResponse -> Bool
== :: DisassociateApplicationFleetResponse
-> DisassociateApplicationFleetResponse -> Bool
$c== :: DisassociateApplicationFleetResponse
-> DisassociateApplicationFleetResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateApplicationFleetResponse]
ReadPrec DisassociateApplicationFleetResponse
Int -> ReadS DisassociateApplicationFleetResponse
ReadS [DisassociateApplicationFleetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateApplicationFleetResponse]
$creadListPrec :: ReadPrec [DisassociateApplicationFleetResponse]
readPrec :: ReadPrec DisassociateApplicationFleetResponse
$creadPrec :: ReadPrec DisassociateApplicationFleetResponse
readList :: ReadS [DisassociateApplicationFleetResponse]
$creadList :: ReadS [DisassociateApplicationFleetResponse]
readsPrec :: Int -> ReadS DisassociateApplicationFleetResponse
$creadsPrec :: Int -> ReadS DisassociateApplicationFleetResponse
Prelude.Read, Int -> DisassociateApplicationFleetResponse -> ShowS
[DisassociateApplicationFleetResponse] -> ShowS
DisassociateApplicationFleetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateApplicationFleetResponse] -> ShowS
$cshowList :: [DisassociateApplicationFleetResponse] -> ShowS
show :: DisassociateApplicationFleetResponse -> String
$cshow :: DisassociateApplicationFleetResponse -> String
showsPrec :: Int -> DisassociateApplicationFleetResponse -> ShowS
$cshowsPrec :: Int -> DisassociateApplicationFleetResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateApplicationFleetResponse x
-> DisassociateApplicationFleetResponse
forall x.
DisassociateApplicationFleetResponse
-> Rep DisassociateApplicationFleetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateApplicationFleetResponse x
-> DisassociateApplicationFleetResponse
$cfrom :: forall x.
DisassociateApplicationFleetResponse
-> Rep DisassociateApplicationFleetResponse x
Prelude.Generic)
newDisassociateApplicationFleetResponse ::
Prelude.Int ->
DisassociateApplicationFleetResponse
newDisassociateApplicationFleetResponse :: Int -> DisassociateApplicationFleetResponse
newDisassociateApplicationFleetResponse Int
pHttpStatus_ =
DisassociateApplicationFleetResponse'
{ $sel:httpStatus:DisassociateApplicationFleetResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
disassociateApplicationFleetResponse_httpStatus :: Lens.Lens' DisassociateApplicationFleetResponse Prelude.Int
disassociateApplicationFleetResponse_httpStatus :: Lens' DisassociateApplicationFleetResponse Int
disassociateApplicationFleetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateApplicationFleetResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateApplicationFleetResponse' :: DisassociateApplicationFleetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DisassociateApplicationFleetResponse
s@DisassociateApplicationFleetResponse' {} Int
a -> DisassociateApplicationFleetResponse
s {$sel:httpStatus:DisassociateApplicationFleetResponse' :: Int
httpStatus = Int
a} :: DisassociateApplicationFleetResponse)
instance
Prelude.NFData
DisassociateApplicationFleetResponse
where
rnf :: DisassociateApplicationFleetResponse -> ()
rnf DisassociateApplicationFleetResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateApplicationFleetResponse' :: DisassociateApplicationFleetResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus