{-# 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.IoTWireless.DisassociateMulticastGroupFromFuotaTask
(
DisassociateMulticastGroupFromFuotaTask (..),
newDisassociateMulticastGroupFromFuotaTask,
disassociateMulticastGroupFromFuotaTask_id,
disassociateMulticastGroupFromFuotaTask_multicastGroupId,
DisassociateMulticastGroupFromFuotaTaskResponse (..),
newDisassociateMulticastGroupFromFuotaTaskResponse,
disassociateMulticastGroupFromFuotaTaskResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoTWireless.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DisassociateMulticastGroupFromFuotaTask = DisassociateMulticastGroupFromFuotaTask'
{ DisassociateMulticastGroupFromFuotaTask -> Text
id :: Prelude.Text,
DisassociateMulticastGroupFromFuotaTask -> Text
multicastGroupId :: Prelude.Text
}
deriving (DisassociateMulticastGroupFromFuotaTask
-> DisassociateMulticastGroupFromFuotaTask -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateMulticastGroupFromFuotaTask
-> DisassociateMulticastGroupFromFuotaTask -> Bool
$c/= :: DisassociateMulticastGroupFromFuotaTask
-> DisassociateMulticastGroupFromFuotaTask -> Bool
== :: DisassociateMulticastGroupFromFuotaTask
-> DisassociateMulticastGroupFromFuotaTask -> Bool
$c== :: DisassociateMulticastGroupFromFuotaTask
-> DisassociateMulticastGroupFromFuotaTask -> Bool
Prelude.Eq, ReadPrec [DisassociateMulticastGroupFromFuotaTask]
ReadPrec DisassociateMulticastGroupFromFuotaTask
Int -> ReadS DisassociateMulticastGroupFromFuotaTask
ReadS [DisassociateMulticastGroupFromFuotaTask]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateMulticastGroupFromFuotaTask]
$creadListPrec :: ReadPrec [DisassociateMulticastGroupFromFuotaTask]
readPrec :: ReadPrec DisassociateMulticastGroupFromFuotaTask
$creadPrec :: ReadPrec DisassociateMulticastGroupFromFuotaTask
readList :: ReadS [DisassociateMulticastGroupFromFuotaTask]
$creadList :: ReadS [DisassociateMulticastGroupFromFuotaTask]
readsPrec :: Int -> ReadS DisassociateMulticastGroupFromFuotaTask
$creadsPrec :: Int -> ReadS DisassociateMulticastGroupFromFuotaTask
Prelude.Read, Int -> DisassociateMulticastGroupFromFuotaTask -> ShowS
[DisassociateMulticastGroupFromFuotaTask] -> ShowS
DisassociateMulticastGroupFromFuotaTask -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateMulticastGroupFromFuotaTask] -> ShowS
$cshowList :: [DisassociateMulticastGroupFromFuotaTask] -> ShowS
show :: DisassociateMulticastGroupFromFuotaTask -> String
$cshow :: DisassociateMulticastGroupFromFuotaTask -> String
showsPrec :: Int -> DisassociateMulticastGroupFromFuotaTask -> ShowS
$cshowsPrec :: Int -> DisassociateMulticastGroupFromFuotaTask -> ShowS
Prelude.Show, forall x.
Rep DisassociateMulticastGroupFromFuotaTask x
-> DisassociateMulticastGroupFromFuotaTask
forall x.
DisassociateMulticastGroupFromFuotaTask
-> Rep DisassociateMulticastGroupFromFuotaTask x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateMulticastGroupFromFuotaTask x
-> DisassociateMulticastGroupFromFuotaTask
$cfrom :: forall x.
DisassociateMulticastGroupFromFuotaTask
-> Rep DisassociateMulticastGroupFromFuotaTask x
Prelude.Generic)
newDisassociateMulticastGroupFromFuotaTask ::
Prelude.Text ->
Prelude.Text ->
DisassociateMulticastGroupFromFuotaTask
newDisassociateMulticastGroupFromFuotaTask :: Text -> Text -> DisassociateMulticastGroupFromFuotaTask
newDisassociateMulticastGroupFromFuotaTask
Text
pId_
Text
pMulticastGroupId_ =
DisassociateMulticastGroupFromFuotaTask'
{ $sel:id:DisassociateMulticastGroupFromFuotaTask' :: Text
id = Text
pId_,
$sel:multicastGroupId:DisassociateMulticastGroupFromFuotaTask' :: Text
multicastGroupId =
Text
pMulticastGroupId_
}
disassociateMulticastGroupFromFuotaTask_id :: Lens.Lens' DisassociateMulticastGroupFromFuotaTask Prelude.Text
disassociateMulticastGroupFromFuotaTask_id :: Lens' DisassociateMulticastGroupFromFuotaTask Text
disassociateMulticastGroupFromFuotaTask_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateMulticastGroupFromFuotaTask' {Text
id :: Text
$sel:id:DisassociateMulticastGroupFromFuotaTask' :: DisassociateMulticastGroupFromFuotaTask -> Text
id} -> Text
id) (\s :: DisassociateMulticastGroupFromFuotaTask
s@DisassociateMulticastGroupFromFuotaTask' {} Text
a -> DisassociateMulticastGroupFromFuotaTask
s {$sel:id:DisassociateMulticastGroupFromFuotaTask' :: Text
id = Text
a} :: DisassociateMulticastGroupFromFuotaTask)
disassociateMulticastGroupFromFuotaTask_multicastGroupId :: Lens.Lens' DisassociateMulticastGroupFromFuotaTask Prelude.Text
disassociateMulticastGroupFromFuotaTask_multicastGroupId :: Lens' DisassociateMulticastGroupFromFuotaTask Text
disassociateMulticastGroupFromFuotaTask_multicastGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateMulticastGroupFromFuotaTask' {Text
multicastGroupId :: Text
$sel:multicastGroupId:DisassociateMulticastGroupFromFuotaTask' :: DisassociateMulticastGroupFromFuotaTask -> Text
multicastGroupId} -> Text
multicastGroupId) (\s :: DisassociateMulticastGroupFromFuotaTask
s@DisassociateMulticastGroupFromFuotaTask' {} Text
a -> DisassociateMulticastGroupFromFuotaTask
s {$sel:multicastGroupId:DisassociateMulticastGroupFromFuotaTask' :: Text
multicastGroupId = Text
a} :: DisassociateMulticastGroupFromFuotaTask)
instance
Core.AWSRequest
DisassociateMulticastGroupFromFuotaTask
where
type
AWSResponse
DisassociateMulticastGroupFromFuotaTask =
DisassociateMulticastGroupFromFuotaTaskResponse
request :: (Service -> Service)
-> DisassociateMulticastGroupFromFuotaTask
-> Request DisassociateMulticastGroupFromFuotaTask
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DisassociateMulticastGroupFromFuotaTask
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DisassociateMulticastGroupFromFuotaTask)))
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 -> DisassociateMulticastGroupFromFuotaTaskResponse
DisassociateMulticastGroupFromFuotaTaskResponse'
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
DisassociateMulticastGroupFromFuotaTask
where
hashWithSalt :: Int -> DisassociateMulticastGroupFromFuotaTask -> Int
hashWithSalt
Int
_salt
DisassociateMulticastGroupFromFuotaTask' {Text
multicastGroupId :: Text
id :: Text
$sel:multicastGroupId:DisassociateMulticastGroupFromFuotaTask' :: DisassociateMulticastGroupFromFuotaTask -> Text
$sel:id:DisassociateMulticastGroupFromFuotaTask' :: DisassociateMulticastGroupFromFuotaTask -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
multicastGroupId
instance
Prelude.NFData
DisassociateMulticastGroupFromFuotaTask
where
rnf :: DisassociateMulticastGroupFromFuotaTask -> ()
rnf DisassociateMulticastGroupFromFuotaTask' {Text
multicastGroupId :: Text
id :: Text
$sel:multicastGroupId:DisassociateMulticastGroupFromFuotaTask' :: DisassociateMulticastGroupFromFuotaTask -> Text
$sel:id:DisassociateMulticastGroupFromFuotaTask' :: DisassociateMulticastGroupFromFuotaTask -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
multicastGroupId
instance
Data.ToHeaders
DisassociateMulticastGroupFromFuotaTask
where
toHeaders :: DisassociateMulticastGroupFromFuotaTask -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DisassociateMulticastGroupFromFuotaTask
where
toPath :: DisassociateMulticastGroupFromFuotaTask -> ByteString
toPath DisassociateMulticastGroupFromFuotaTask' {Text
multicastGroupId :: Text
id :: Text
$sel:multicastGroupId:DisassociateMulticastGroupFromFuotaTask' :: DisassociateMulticastGroupFromFuotaTask -> Text
$sel:id:DisassociateMulticastGroupFromFuotaTask' :: DisassociateMulticastGroupFromFuotaTask -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/fuota-tasks/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
id,
ByteString
"/multicast-groups/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
multicastGroupId
]
instance
Data.ToQuery
DisassociateMulticastGroupFromFuotaTask
where
toQuery :: DisassociateMulticastGroupFromFuotaTask -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisassociateMulticastGroupFromFuotaTaskResponse = DisassociateMulticastGroupFromFuotaTaskResponse'
{
DisassociateMulticastGroupFromFuotaTaskResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DisassociateMulticastGroupFromFuotaTaskResponse
-> DisassociateMulticastGroupFromFuotaTaskResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateMulticastGroupFromFuotaTaskResponse
-> DisassociateMulticastGroupFromFuotaTaskResponse -> Bool
$c/= :: DisassociateMulticastGroupFromFuotaTaskResponse
-> DisassociateMulticastGroupFromFuotaTaskResponse -> Bool
== :: DisassociateMulticastGroupFromFuotaTaskResponse
-> DisassociateMulticastGroupFromFuotaTaskResponse -> Bool
$c== :: DisassociateMulticastGroupFromFuotaTaskResponse
-> DisassociateMulticastGroupFromFuotaTaskResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateMulticastGroupFromFuotaTaskResponse]
ReadPrec DisassociateMulticastGroupFromFuotaTaskResponse
Int -> ReadS DisassociateMulticastGroupFromFuotaTaskResponse
ReadS [DisassociateMulticastGroupFromFuotaTaskResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateMulticastGroupFromFuotaTaskResponse]
$creadListPrec :: ReadPrec [DisassociateMulticastGroupFromFuotaTaskResponse]
readPrec :: ReadPrec DisassociateMulticastGroupFromFuotaTaskResponse
$creadPrec :: ReadPrec DisassociateMulticastGroupFromFuotaTaskResponse
readList :: ReadS [DisassociateMulticastGroupFromFuotaTaskResponse]
$creadList :: ReadS [DisassociateMulticastGroupFromFuotaTaskResponse]
readsPrec :: Int -> ReadS DisassociateMulticastGroupFromFuotaTaskResponse
$creadsPrec :: Int -> ReadS DisassociateMulticastGroupFromFuotaTaskResponse
Prelude.Read, Int -> DisassociateMulticastGroupFromFuotaTaskResponse -> ShowS
[DisassociateMulticastGroupFromFuotaTaskResponse] -> ShowS
DisassociateMulticastGroupFromFuotaTaskResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateMulticastGroupFromFuotaTaskResponse] -> ShowS
$cshowList :: [DisassociateMulticastGroupFromFuotaTaskResponse] -> ShowS
show :: DisassociateMulticastGroupFromFuotaTaskResponse -> String
$cshow :: DisassociateMulticastGroupFromFuotaTaskResponse -> String
showsPrec :: Int -> DisassociateMulticastGroupFromFuotaTaskResponse -> ShowS
$cshowsPrec :: Int -> DisassociateMulticastGroupFromFuotaTaskResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateMulticastGroupFromFuotaTaskResponse x
-> DisassociateMulticastGroupFromFuotaTaskResponse
forall x.
DisassociateMulticastGroupFromFuotaTaskResponse
-> Rep DisassociateMulticastGroupFromFuotaTaskResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateMulticastGroupFromFuotaTaskResponse x
-> DisassociateMulticastGroupFromFuotaTaskResponse
$cfrom :: forall x.
DisassociateMulticastGroupFromFuotaTaskResponse
-> Rep DisassociateMulticastGroupFromFuotaTaskResponse x
Prelude.Generic)
newDisassociateMulticastGroupFromFuotaTaskResponse ::
Prelude.Int ->
DisassociateMulticastGroupFromFuotaTaskResponse
newDisassociateMulticastGroupFromFuotaTaskResponse :: Int -> DisassociateMulticastGroupFromFuotaTaskResponse
newDisassociateMulticastGroupFromFuotaTaskResponse
Int
pHttpStatus_ =
DisassociateMulticastGroupFromFuotaTaskResponse'
{ $sel:httpStatus:DisassociateMulticastGroupFromFuotaTaskResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
disassociateMulticastGroupFromFuotaTaskResponse_httpStatus :: Lens.Lens' DisassociateMulticastGroupFromFuotaTaskResponse Prelude.Int
disassociateMulticastGroupFromFuotaTaskResponse_httpStatus :: Lens' DisassociateMulticastGroupFromFuotaTaskResponse Int
disassociateMulticastGroupFromFuotaTaskResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateMulticastGroupFromFuotaTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateMulticastGroupFromFuotaTaskResponse' :: DisassociateMulticastGroupFromFuotaTaskResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DisassociateMulticastGroupFromFuotaTaskResponse
s@DisassociateMulticastGroupFromFuotaTaskResponse' {} Int
a -> DisassociateMulticastGroupFromFuotaTaskResponse
s {$sel:httpStatus:DisassociateMulticastGroupFromFuotaTaskResponse' :: Int
httpStatus = Int
a} :: DisassociateMulticastGroupFromFuotaTaskResponse)
instance
Prelude.NFData
DisassociateMulticastGroupFromFuotaTaskResponse
where
rnf :: DisassociateMulticastGroupFromFuotaTaskResponse -> ()
rnf
DisassociateMulticastGroupFromFuotaTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateMulticastGroupFromFuotaTaskResponse' :: DisassociateMulticastGroupFromFuotaTaskResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus