{-# 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.IAM.UntagMFADevice
(
UntagMFADevice (..),
newUntagMFADevice,
untagMFADevice_serialNumber,
untagMFADevice_tagKeys,
UntagMFADeviceResponse (..),
newUntagMFADeviceResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IAM.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UntagMFADevice = UntagMFADevice'
{
UntagMFADevice -> Text
serialNumber :: Prelude.Text,
UntagMFADevice -> [Text]
tagKeys :: [Prelude.Text]
}
deriving (UntagMFADevice -> UntagMFADevice -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UntagMFADevice -> UntagMFADevice -> Bool
$c/= :: UntagMFADevice -> UntagMFADevice -> Bool
== :: UntagMFADevice -> UntagMFADevice -> Bool
$c== :: UntagMFADevice -> UntagMFADevice -> Bool
Prelude.Eq, ReadPrec [UntagMFADevice]
ReadPrec UntagMFADevice
Int -> ReadS UntagMFADevice
ReadS [UntagMFADevice]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UntagMFADevice]
$creadListPrec :: ReadPrec [UntagMFADevice]
readPrec :: ReadPrec UntagMFADevice
$creadPrec :: ReadPrec UntagMFADevice
readList :: ReadS [UntagMFADevice]
$creadList :: ReadS [UntagMFADevice]
readsPrec :: Int -> ReadS UntagMFADevice
$creadsPrec :: Int -> ReadS UntagMFADevice
Prelude.Read, Int -> UntagMFADevice -> ShowS
[UntagMFADevice] -> ShowS
UntagMFADevice -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UntagMFADevice] -> ShowS
$cshowList :: [UntagMFADevice] -> ShowS
show :: UntagMFADevice -> String
$cshow :: UntagMFADevice -> String
showsPrec :: Int -> UntagMFADevice -> ShowS
$cshowsPrec :: Int -> UntagMFADevice -> ShowS
Prelude.Show, forall x. Rep UntagMFADevice x -> UntagMFADevice
forall x. UntagMFADevice -> Rep UntagMFADevice x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UntagMFADevice x -> UntagMFADevice
$cfrom :: forall x. UntagMFADevice -> Rep UntagMFADevice x
Prelude.Generic)
newUntagMFADevice ::
Prelude.Text ->
UntagMFADevice
newUntagMFADevice :: Text -> UntagMFADevice
newUntagMFADevice Text
pSerialNumber_ =
UntagMFADevice'
{ $sel:serialNumber:UntagMFADevice' :: Text
serialNumber = Text
pSerialNumber_,
$sel:tagKeys:UntagMFADevice' :: [Text]
tagKeys = forall a. Monoid a => a
Prelude.mempty
}
untagMFADevice_serialNumber :: Lens.Lens' UntagMFADevice Prelude.Text
untagMFADevice_serialNumber :: Lens' UntagMFADevice Text
untagMFADevice_serialNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UntagMFADevice' {Text
serialNumber :: Text
$sel:serialNumber:UntagMFADevice' :: UntagMFADevice -> Text
serialNumber} -> Text
serialNumber) (\s :: UntagMFADevice
s@UntagMFADevice' {} Text
a -> UntagMFADevice
s {$sel:serialNumber:UntagMFADevice' :: Text
serialNumber = Text
a} :: UntagMFADevice)
untagMFADevice_tagKeys :: Lens.Lens' UntagMFADevice [Prelude.Text]
untagMFADevice_tagKeys :: Lens' UntagMFADevice [Text]
untagMFADevice_tagKeys = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UntagMFADevice' {[Text]
tagKeys :: [Text]
$sel:tagKeys:UntagMFADevice' :: UntagMFADevice -> [Text]
tagKeys} -> [Text]
tagKeys) (\s :: UntagMFADevice
s@UntagMFADevice' {} [Text]
a -> UntagMFADevice
s {$sel:tagKeys:UntagMFADevice' :: [Text]
tagKeys = [Text]
a} :: UntagMFADevice) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest UntagMFADevice where
type
AWSResponse UntagMFADevice =
UntagMFADeviceResponse
request :: (Service -> Service) -> UntagMFADevice -> Request UntagMFADevice
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 UntagMFADevice
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UntagMFADevice)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull UntagMFADeviceResponse
UntagMFADeviceResponse'
instance Prelude.Hashable UntagMFADevice where
hashWithSalt :: Int -> UntagMFADevice -> Int
hashWithSalt Int
_salt UntagMFADevice' {[Text]
Text
tagKeys :: [Text]
serialNumber :: Text
$sel:tagKeys:UntagMFADevice' :: UntagMFADevice -> [Text]
$sel:serialNumber:UntagMFADevice' :: UntagMFADevice -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serialNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
tagKeys
instance Prelude.NFData UntagMFADevice where
rnf :: UntagMFADevice -> ()
rnf UntagMFADevice' {[Text]
Text
tagKeys :: [Text]
serialNumber :: Text
$sel:tagKeys:UntagMFADevice' :: UntagMFADevice -> [Text]
$sel:serialNumber:UntagMFADevice' :: UntagMFADevice -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
serialNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
tagKeys
instance Data.ToHeaders UntagMFADevice where
toHeaders :: UntagMFADevice -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath UntagMFADevice where
toPath :: UntagMFADevice -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UntagMFADevice where
toQuery :: UntagMFADevice -> QueryString
toQuery UntagMFADevice' {[Text]
Text
tagKeys :: [Text]
serialNumber :: Text
$sel:tagKeys:UntagMFADevice' :: UntagMFADevice -> [Text]
$sel:serialNumber:UntagMFADevice' :: UntagMFADevice -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"UntagMFADevice" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"SerialNumber" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
serialNumber,
ByteString
"TagKeys" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" [Text]
tagKeys
]
data UntagMFADeviceResponse = UntagMFADeviceResponse'
{
}
deriving (UntagMFADeviceResponse -> UntagMFADeviceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UntagMFADeviceResponse -> UntagMFADeviceResponse -> Bool
$c/= :: UntagMFADeviceResponse -> UntagMFADeviceResponse -> Bool
== :: UntagMFADeviceResponse -> UntagMFADeviceResponse -> Bool
$c== :: UntagMFADeviceResponse -> UntagMFADeviceResponse -> Bool
Prelude.Eq, ReadPrec [UntagMFADeviceResponse]
ReadPrec UntagMFADeviceResponse
Int -> ReadS UntagMFADeviceResponse
ReadS [UntagMFADeviceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UntagMFADeviceResponse]
$creadListPrec :: ReadPrec [UntagMFADeviceResponse]
readPrec :: ReadPrec UntagMFADeviceResponse
$creadPrec :: ReadPrec UntagMFADeviceResponse
readList :: ReadS [UntagMFADeviceResponse]
$creadList :: ReadS [UntagMFADeviceResponse]
readsPrec :: Int -> ReadS UntagMFADeviceResponse
$creadsPrec :: Int -> ReadS UntagMFADeviceResponse
Prelude.Read, Int -> UntagMFADeviceResponse -> ShowS
[UntagMFADeviceResponse] -> ShowS
UntagMFADeviceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UntagMFADeviceResponse] -> ShowS
$cshowList :: [UntagMFADeviceResponse] -> ShowS
show :: UntagMFADeviceResponse -> String
$cshow :: UntagMFADeviceResponse -> String
showsPrec :: Int -> UntagMFADeviceResponse -> ShowS
$cshowsPrec :: Int -> UntagMFADeviceResponse -> ShowS
Prelude.Show, forall x. Rep UntagMFADeviceResponse x -> UntagMFADeviceResponse
forall x. UntagMFADeviceResponse -> Rep UntagMFADeviceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UntagMFADeviceResponse x -> UntagMFADeviceResponse
$cfrom :: forall x. UntagMFADeviceResponse -> Rep UntagMFADeviceResponse x
Prelude.Generic)
newUntagMFADeviceResponse ::
UntagMFADeviceResponse
newUntagMFADeviceResponse :: UntagMFADeviceResponse
newUntagMFADeviceResponse = UntagMFADeviceResponse
UntagMFADeviceResponse'
instance Prelude.NFData UntagMFADeviceResponse where
rnf :: UntagMFADeviceResponse -> ()
rnf UntagMFADeviceResponse
_ = ()