{-# 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.DeleteServiceSpecificCredential
(
DeleteServiceSpecificCredential (..),
newDeleteServiceSpecificCredential,
deleteServiceSpecificCredential_userName,
deleteServiceSpecificCredential_serviceSpecificCredentialId,
DeleteServiceSpecificCredentialResponse (..),
newDeleteServiceSpecificCredentialResponse,
)
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 DeleteServiceSpecificCredential = DeleteServiceSpecificCredential'
{
DeleteServiceSpecificCredential -> Maybe Text
userName :: Prelude.Maybe Prelude.Text,
DeleteServiceSpecificCredential -> Text
serviceSpecificCredentialId :: Prelude.Text
}
deriving (DeleteServiceSpecificCredential
-> DeleteServiceSpecificCredential -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteServiceSpecificCredential
-> DeleteServiceSpecificCredential -> Bool
$c/= :: DeleteServiceSpecificCredential
-> DeleteServiceSpecificCredential -> Bool
== :: DeleteServiceSpecificCredential
-> DeleteServiceSpecificCredential -> Bool
$c== :: DeleteServiceSpecificCredential
-> DeleteServiceSpecificCredential -> Bool
Prelude.Eq, ReadPrec [DeleteServiceSpecificCredential]
ReadPrec DeleteServiceSpecificCredential
Int -> ReadS DeleteServiceSpecificCredential
ReadS [DeleteServiceSpecificCredential]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteServiceSpecificCredential]
$creadListPrec :: ReadPrec [DeleteServiceSpecificCredential]
readPrec :: ReadPrec DeleteServiceSpecificCredential
$creadPrec :: ReadPrec DeleteServiceSpecificCredential
readList :: ReadS [DeleteServiceSpecificCredential]
$creadList :: ReadS [DeleteServiceSpecificCredential]
readsPrec :: Int -> ReadS DeleteServiceSpecificCredential
$creadsPrec :: Int -> ReadS DeleteServiceSpecificCredential
Prelude.Read, Int -> DeleteServiceSpecificCredential -> ShowS
[DeleteServiceSpecificCredential] -> ShowS
DeleteServiceSpecificCredential -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteServiceSpecificCredential] -> ShowS
$cshowList :: [DeleteServiceSpecificCredential] -> ShowS
show :: DeleteServiceSpecificCredential -> String
$cshow :: DeleteServiceSpecificCredential -> String
showsPrec :: Int -> DeleteServiceSpecificCredential -> ShowS
$cshowsPrec :: Int -> DeleteServiceSpecificCredential -> ShowS
Prelude.Show, forall x.
Rep DeleteServiceSpecificCredential x
-> DeleteServiceSpecificCredential
forall x.
DeleteServiceSpecificCredential
-> Rep DeleteServiceSpecificCredential x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteServiceSpecificCredential x
-> DeleteServiceSpecificCredential
$cfrom :: forall x.
DeleteServiceSpecificCredential
-> Rep DeleteServiceSpecificCredential x
Prelude.Generic)
newDeleteServiceSpecificCredential ::
Prelude.Text ->
DeleteServiceSpecificCredential
newDeleteServiceSpecificCredential :: Text -> DeleteServiceSpecificCredential
newDeleteServiceSpecificCredential
Text
pServiceSpecificCredentialId_ =
DeleteServiceSpecificCredential'
{ $sel:userName:DeleteServiceSpecificCredential' :: Maybe Text
userName =
forall a. Maybe a
Prelude.Nothing,
$sel:serviceSpecificCredentialId:DeleteServiceSpecificCredential' :: Text
serviceSpecificCredentialId =
Text
pServiceSpecificCredentialId_
}
deleteServiceSpecificCredential_userName :: Lens.Lens' DeleteServiceSpecificCredential (Prelude.Maybe Prelude.Text)
deleteServiceSpecificCredential_userName :: Lens' DeleteServiceSpecificCredential (Maybe Text)
deleteServiceSpecificCredential_userName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteServiceSpecificCredential' {Maybe Text
userName :: Maybe Text
$sel:userName:DeleteServiceSpecificCredential' :: DeleteServiceSpecificCredential -> Maybe Text
userName} -> Maybe Text
userName) (\s :: DeleteServiceSpecificCredential
s@DeleteServiceSpecificCredential' {} Maybe Text
a -> DeleteServiceSpecificCredential
s {$sel:userName:DeleteServiceSpecificCredential' :: Maybe Text
userName = Maybe Text
a} :: DeleteServiceSpecificCredential)
deleteServiceSpecificCredential_serviceSpecificCredentialId :: Lens.Lens' DeleteServiceSpecificCredential Prelude.Text
deleteServiceSpecificCredential_serviceSpecificCredentialId :: Lens' DeleteServiceSpecificCredential Text
deleteServiceSpecificCredential_serviceSpecificCredentialId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteServiceSpecificCredential' {Text
serviceSpecificCredentialId :: Text
$sel:serviceSpecificCredentialId:DeleteServiceSpecificCredential' :: DeleteServiceSpecificCredential -> Text
serviceSpecificCredentialId} -> Text
serviceSpecificCredentialId) (\s :: DeleteServiceSpecificCredential
s@DeleteServiceSpecificCredential' {} Text
a -> DeleteServiceSpecificCredential
s {$sel:serviceSpecificCredentialId:DeleteServiceSpecificCredential' :: Text
serviceSpecificCredentialId = Text
a} :: DeleteServiceSpecificCredential)
instance
Core.AWSRequest
DeleteServiceSpecificCredential
where
type
AWSResponse DeleteServiceSpecificCredential =
DeleteServiceSpecificCredentialResponse
request :: (Service -> Service)
-> DeleteServiceSpecificCredential
-> Request DeleteServiceSpecificCredential
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 DeleteServiceSpecificCredential
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteServiceSpecificCredential)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteServiceSpecificCredentialResponse
DeleteServiceSpecificCredentialResponse'
instance
Prelude.Hashable
DeleteServiceSpecificCredential
where
hashWithSalt :: Int -> DeleteServiceSpecificCredential -> Int
hashWithSalt
Int
_salt
DeleteServiceSpecificCredential' {Maybe Text
Text
serviceSpecificCredentialId :: Text
userName :: Maybe Text
$sel:serviceSpecificCredentialId:DeleteServiceSpecificCredential' :: DeleteServiceSpecificCredential -> Text
$sel:userName:DeleteServiceSpecificCredential' :: DeleteServiceSpecificCredential -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
userName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serviceSpecificCredentialId
instance
Prelude.NFData
DeleteServiceSpecificCredential
where
rnf :: DeleteServiceSpecificCredential -> ()
rnf DeleteServiceSpecificCredential' {Maybe Text
Text
serviceSpecificCredentialId :: Text
userName :: Maybe Text
$sel:serviceSpecificCredentialId:DeleteServiceSpecificCredential' :: DeleteServiceSpecificCredential -> Text
$sel:userName:DeleteServiceSpecificCredential' :: DeleteServiceSpecificCredential -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
userName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
serviceSpecificCredentialId
instance
Data.ToHeaders
DeleteServiceSpecificCredential
where
toHeaders :: DeleteServiceSpecificCredential -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteServiceSpecificCredential where
toPath :: DeleteServiceSpecificCredential -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteServiceSpecificCredential where
toQuery :: DeleteServiceSpecificCredential -> QueryString
toQuery DeleteServiceSpecificCredential' {Maybe Text
Text
serviceSpecificCredentialId :: Text
userName :: Maybe Text
$sel:serviceSpecificCredentialId:DeleteServiceSpecificCredential' :: DeleteServiceSpecificCredential -> Text
$sel:userName:DeleteServiceSpecificCredential' :: DeleteServiceSpecificCredential -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteServiceSpecificCredential" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"UserName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
userName,
ByteString
"ServiceSpecificCredentialId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
serviceSpecificCredentialId
]
data DeleteServiceSpecificCredentialResponse = DeleteServiceSpecificCredentialResponse'
{
}
deriving (DeleteServiceSpecificCredentialResponse
-> DeleteServiceSpecificCredentialResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteServiceSpecificCredentialResponse
-> DeleteServiceSpecificCredentialResponse -> Bool
$c/= :: DeleteServiceSpecificCredentialResponse
-> DeleteServiceSpecificCredentialResponse -> Bool
== :: DeleteServiceSpecificCredentialResponse
-> DeleteServiceSpecificCredentialResponse -> Bool
$c== :: DeleteServiceSpecificCredentialResponse
-> DeleteServiceSpecificCredentialResponse -> Bool
Prelude.Eq, ReadPrec [DeleteServiceSpecificCredentialResponse]
ReadPrec DeleteServiceSpecificCredentialResponse
Int -> ReadS DeleteServiceSpecificCredentialResponse
ReadS [DeleteServiceSpecificCredentialResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteServiceSpecificCredentialResponse]
$creadListPrec :: ReadPrec [DeleteServiceSpecificCredentialResponse]
readPrec :: ReadPrec DeleteServiceSpecificCredentialResponse
$creadPrec :: ReadPrec DeleteServiceSpecificCredentialResponse
readList :: ReadS [DeleteServiceSpecificCredentialResponse]
$creadList :: ReadS [DeleteServiceSpecificCredentialResponse]
readsPrec :: Int -> ReadS DeleteServiceSpecificCredentialResponse
$creadsPrec :: Int -> ReadS DeleteServiceSpecificCredentialResponse
Prelude.Read, Int -> DeleteServiceSpecificCredentialResponse -> ShowS
[DeleteServiceSpecificCredentialResponse] -> ShowS
DeleteServiceSpecificCredentialResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteServiceSpecificCredentialResponse] -> ShowS
$cshowList :: [DeleteServiceSpecificCredentialResponse] -> ShowS
show :: DeleteServiceSpecificCredentialResponse -> String
$cshow :: DeleteServiceSpecificCredentialResponse -> String
showsPrec :: Int -> DeleteServiceSpecificCredentialResponse -> ShowS
$cshowsPrec :: Int -> DeleteServiceSpecificCredentialResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteServiceSpecificCredentialResponse x
-> DeleteServiceSpecificCredentialResponse
forall x.
DeleteServiceSpecificCredentialResponse
-> Rep DeleteServiceSpecificCredentialResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteServiceSpecificCredentialResponse x
-> DeleteServiceSpecificCredentialResponse
$cfrom :: forall x.
DeleteServiceSpecificCredentialResponse
-> Rep DeleteServiceSpecificCredentialResponse x
Prelude.Generic)
newDeleteServiceSpecificCredentialResponse ::
DeleteServiceSpecificCredentialResponse
newDeleteServiceSpecificCredentialResponse :: DeleteServiceSpecificCredentialResponse
newDeleteServiceSpecificCredentialResponse =
DeleteServiceSpecificCredentialResponse
DeleteServiceSpecificCredentialResponse'
instance
Prelude.NFData
DeleteServiceSpecificCredentialResponse
where
rnf :: DeleteServiceSpecificCredentialResponse -> ()
rnf DeleteServiceSpecificCredentialResponse
_ = ()