module Network.AWS.IAM.GetSAMLProvider
(
GetSAMLProvider
, getSAMLProvider
, gsamlpSAMLProviderArn
, GetSAMLProviderResponse
, getSAMLProviderResponse
, gsamlprCreateDate
, gsamlprSAMLMetadataDocument
, gsamlprValidUntil
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
newtype GetSAMLProvider = GetSAMLProvider
{ _gsamlpSAMLProviderArn :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
getSAMLProvider :: Text
-> GetSAMLProvider
getSAMLProvider p1 = GetSAMLProvider
{ _gsamlpSAMLProviderArn = p1
}
gsamlpSAMLProviderArn :: Lens' GetSAMLProvider Text
gsamlpSAMLProviderArn =
lens _gsamlpSAMLProviderArn (\s a -> s { _gsamlpSAMLProviderArn = a })
data GetSAMLProviderResponse = GetSAMLProviderResponse
{ _gsamlprCreateDate :: Maybe ISO8601
, _gsamlprSAMLMetadataDocument :: Maybe Text
, _gsamlprValidUntil :: Maybe ISO8601
} deriving (Eq, Ord, Show)
getSAMLProviderResponse :: GetSAMLProviderResponse
getSAMLProviderResponse = GetSAMLProviderResponse
{ _gsamlprSAMLMetadataDocument = Nothing
, _gsamlprCreateDate = Nothing
, _gsamlprValidUntil = Nothing
}
gsamlprCreateDate :: Lens' GetSAMLProviderResponse (Maybe UTCTime)
gsamlprCreateDate =
lens _gsamlprCreateDate (\s a -> s { _gsamlprCreateDate = a })
. mapping _Time
gsamlprSAMLMetadataDocument :: Lens' GetSAMLProviderResponse (Maybe Text)
gsamlprSAMLMetadataDocument =
lens _gsamlprSAMLMetadataDocument
(\s a -> s { _gsamlprSAMLMetadataDocument = a })
gsamlprValidUntil :: Lens' GetSAMLProviderResponse (Maybe UTCTime)
gsamlprValidUntil =
lens _gsamlprValidUntil (\s a -> s { _gsamlprValidUntil = a })
. mapping _Time
instance ToPath GetSAMLProvider where
toPath = const "/"
instance ToQuery GetSAMLProvider where
toQuery GetSAMLProvider{..} = mconcat
[ "SAMLProviderArn" =? _gsamlpSAMLProviderArn
]
instance ToHeaders GetSAMLProvider
instance AWSRequest GetSAMLProvider where
type Sv GetSAMLProvider = IAM
type Rs GetSAMLProvider = GetSAMLProviderResponse
request = post "GetSAMLProvider"
response = xmlResponse
instance FromXML GetSAMLProviderResponse where
parseXML = withElement "GetSAMLProviderResult" $ \x -> GetSAMLProviderResponse
<$> x .@? "CreateDate"
<*> x .@? "SAMLMetadataDocument"
<*> x .@? "ValidUntil"