module Network.AWS.IAM.UpdateSAMLProvider
(
UpdateSAMLProvider
, updateSAMLProvider
, usamlpSAMLMetadataDocument
, usamlpSAMLProviderArn
, UpdateSAMLProviderResponse
, updateSAMLProviderResponse
, usamlprSAMLProviderArn
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data UpdateSAMLProvider = UpdateSAMLProvider
{ _usamlpSAMLMetadataDocument :: Text
, _usamlpSAMLProviderArn :: Text
} deriving (Eq, Ord, Show)
updateSAMLProvider :: Text
-> Text
-> UpdateSAMLProvider
updateSAMLProvider p1 p2 = UpdateSAMLProvider
{ _usamlpSAMLMetadataDocument = p1
, _usamlpSAMLProviderArn = p2
}
usamlpSAMLMetadataDocument :: Lens' UpdateSAMLProvider Text
usamlpSAMLMetadataDocument =
lens _usamlpSAMLMetadataDocument
(\s a -> s { _usamlpSAMLMetadataDocument = a })
usamlpSAMLProviderArn :: Lens' UpdateSAMLProvider Text
usamlpSAMLProviderArn =
lens _usamlpSAMLProviderArn (\s a -> s { _usamlpSAMLProviderArn = a })
newtype UpdateSAMLProviderResponse = UpdateSAMLProviderResponse
{ _usamlprSAMLProviderArn :: Maybe Text
} deriving (Eq, Ord, Show, Monoid)
updateSAMLProviderResponse :: UpdateSAMLProviderResponse
updateSAMLProviderResponse = UpdateSAMLProviderResponse
{ _usamlprSAMLProviderArn = Nothing
}
usamlprSAMLProviderArn :: Lens' UpdateSAMLProviderResponse (Maybe Text)
usamlprSAMLProviderArn =
lens _usamlprSAMLProviderArn (\s a -> s { _usamlprSAMLProviderArn = a })
instance ToPath UpdateSAMLProvider where
toPath = const "/"
instance ToQuery UpdateSAMLProvider where
toQuery UpdateSAMLProvider{..} = mconcat
[ "SAMLMetadataDocument" =? _usamlpSAMLMetadataDocument
, "SAMLProviderArn" =? _usamlpSAMLProviderArn
]
instance ToHeaders UpdateSAMLProvider
instance AWSRequest UpdateSAMLProvider where
type Sv UpdateSAMLProvider = IAM
type Rs UpdateSAMLProvider = UpdateSAMLProviderResponse
request = post "UpdateSAMLProvider"
response = xmlResponse
instance FromXML UpdateSAMLProviderResponse where
parseXML = withElement "UpdateSAMLProviderResult" $ \x -> UpdateSAMLProviderResponse
<$> x .@? "SAMLProviderArn"