{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CognitoIdentityProvider.CreateResourceServer
(
createResourceServer
, CreateResourceServer
, crsScopes
, crsUserPoolId
, crsIdentifier
, crsName
, createResourceServerResponse
, CreateResourceServerResponse
, crsrsResponseStatus
, crsrsResourceServer
) where
import Network.AWS.CognitoIdentityProvider.Types
import Network.AWS.CognitoIdentityProvider.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateResourceServer = CreateResourceServer'
{ _crsScopes :: !(Maybe [ResourceServerScopeType])
, _crsUserPoolId :: !Text
, _crsIdentifier :: !Text
, _crsName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createResourceServer
:: Text
-> Text
-> Text
-> CreateResourceServer
createResourceServer pUserPoolId_ pIdentifier_ pName_ =
CreateResourceServer'
{ _crsScopes = Nothing
, _crsUserPoolId = pUserPoolId_
, _crsIdentifier = pIdentifier_
, _crsName = pName_
}
crsScopes :: Lens' CreateResourceServer [ResourceServerScopeType]
crsScopes = lens _crsScopes (\ s a -> s{_crsScopes = a}) . _Default . _Coerce
crsUserPoolId :: Lens' CreateResourceServer Text
crsUserPoolId = lens _crsUserPoolId (\ s a -> s{_crsUserPoolId = a})
crsIdentifier :: Lens' CreateResourceServer Text
crsIdentifier = lens _crsIdentifier (\ s a -> s{_crsIdentifier = a})
crsName :: Lens' CreateResourceServer Text
crsName = lens _crsName (\ s a -> s{_crsName = a})
instance AWSRequest CreateResourceServer where
type Rs CreateResourceServer =
CreateResourceServerResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
CreateResourceServerResponse' <$>
(pure (fromEnum s)) <*> (x .:> "ResourceServer"))
instance Hashable CreateResourceServer where
instance NFData CreateResourceServer where
instance ToHeaders CreateResourceServer where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.CreateResourceServer"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateResourceServer where
toJSON CreateResourceServer'{..}
= object
(catMaybes
[("Scopes" .=) <$> _crsScopes,
Just ("UserPoolId" .= _crsUserPoolId),
Just ("Identifier" .= _crsIdentifier),
Just ("Name" .= _crsName)])
instance ToPath CreateResourceServer where
toPath = const "/"
instance ToQuery CreateResourceServer where
toQuery = const mempty
data CreateResourceServerResponse = CreateResourceServerResponse'
{ _crsrsResponseStatus :: !Int
, _crsrsResourceServer :: !ResourceServerType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createResourceServerResponse
:: Int
-> ResourceServerType
-> CreateResourceServerResponse
createResourceServerResponse pResponseStatus_ pResourceServer_ =
CreateResourceServerResponse'
{ _crsrsResponseStatus = pResponseStatus_
, _crsrsResourceServer = pResourceServer_
}
crsrsResponseStatus :: Lens' CreateResourceServerResponse Int
crsrsResponseStatus = lens _crsrsResponseStatus (\ s a -> s{_crsrsResponseStatus = a})
crsrsResourceServer :: Lens' CreateResourceServerResponse ResourceServerType
crsrsResourceServer = lens _crsrsResourceServer (\ s a -> s{_crsrsResourceServer = a})
instance NFData CreateResourceServerResponse where