module Network.AWS.IAM.UpdateOpenIDConnectProviderThumbprint
(
UpdateOpenIDConnectProviderThumbprint
, updateOpenIDConnectProviderThumbprint
, uoidcptOpenIDConnectProviderArn
, uoidcptThumbprintList
, UpdateOpenIDConnectProviderThumbprintResponse
, updateOpenIDConnectProviderThumbprintResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data UpdateOpenIDConnectProviderThumbprint = UpdateOpenIDConnectProviderThumbprint
{ _uoidcptOpenIDConnectProviderArn :: Text
, _uoidcptThumbprintList :: List "ThumbprintList" Text
} deriving (Eq, Ord, Show)
updateOpenIDConnectProviderThumbprint :: Text
-> UpdateOpenIDConnectProviderThumbprint
updateOpenIDConnectProviderThumbprint p1 = UpdateOpenIDConnectProviderThumbprint
{ _uoidcptOpenIDConnectProviderArn = p1
, _uoidcptThumbprintList = mempty
}
uoidcptOpenIDConnectProviderArn :: Lens' UpdateOpenIDConnectProviderThumbprint Text
uoidcptOpenIDConnectProviderArn =
lens _uoidcptOpenIDConnectProviderArn
(\s a -> s { _uoidcptOpenIDConnectProviderArn = a })
uoidcptThumbprintList :: Lens' UpdateOpenIDConnectProviderThumbprint [Text]
uoidcptThumbprintList =
lens _uoidcptThumbprintList (\s a -> s { _uoidcptThumbprintList = a })
. _List
data UpdateOpenIDConnectProviderThumbprintResponse = UpdateOpenIDConnectProviderThumbprintResponse
deriving (Eq, Ord, Show, Generic)
updateOpenIDConnectProviderThumbprintResponse :: UpdateOpenIDConnectProviderThumbprintResponse
updateOpenIDConnectProviderThumbprintResponse = UpdateOpenIDConnectProviderThumbprintResponse
instance ToPath UpdateOpenIDConnectProviderThumbprint where
toPath = const "/"
instance ToQuery UpdateOpenIDConnectProviderThumbprint where
toQuery UpdateOpenIDConnectProviderThumbprint{..} = mconcat
[ "OpenIDConnectProviderArn" =? _uoidcptOpenIDConnectProviderArn
, "ThumbprintList" =? _uoidcptThumbprintList
]
instance ToHeaders UpdateOpenIDConnectProviderThumbprint
instance AWSRequest UpdateOpenIDConnectProviderThumbprint where
type Sv UpdateOpenIDConnectProviderThumbprint = IAM
type Rs UpdateOpenIDConnectProviderThumbprint = UpdateOpenIDConnectProviderThumbprintResponse
request = post "UpdateOpenIDConnectProviderThumbprint"
response = nullResponse UpdateOpenIDConnectProviderThumbprintResponse