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