module Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity
(
unlinkDeveloperIdentity
, UnlinkDeveloperIdentity
, udiIdentityId
, udiIdentityPoolId
, udiDeveloperProviderName
, udiDeveloperUserIdentifier
, unlinkDeveloperIdentityResponse
, UnlinkDeveloperIdentityResponse
) where
import Network.AWS.CognitoIdentity.Types
import Network.AWS.CognitoIdentity.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UnlinkDeveloperIdentity = UnlinkDeveloperIdentity'
{ _udiIdentityId :: !Text
, _udiIdentityPoolId :: !Text
, _udiDeveloperProviderName :: !Text
, _udiDeveloperUserIdentifier :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
unlinkDeveloperIdentity
:: Text
-> Text
-> Text
-> Text
-> UnlinkDeveloperIdentity
unlinkDeveloperIdentity pIdentityId_ pIdentityPoolId_ pDeveloperProviderName_ pDeveloperUserIdentifier_ =
UnlinkDeveloperIdentity'
{ _udiIdentityId = pIdentityId_
, _udiIdentityPoolId = pIdentityPoolId_
, _udiDeveloperProviderName = pDeveloperProviderName_
, _udiDeveloperUserIdentifier = pDeveloperUserIdentifier_
}
udiIdentityId :: Lens' UnlinkDeveloperIdentity Text
udiIdentityId = lens _udiIdentityId (\ s a -> s{_udiIdentityId = a});
udiIdentityPoolId :: Lens' UnlinkDeveloperIdentity Text
udiIdentityPoolId = lens _udiIdentityPoolId (\ s a -> s{_udiIdentityPoolId = a});
udiDeveloperProviderName :: Lens' UnlinkDeveloperIdentity Text
udiDeveloperProviderName = lens _udiDeveloperProviderName (\ s a -> s{_udiDeveloperProviderName = a});
udiDeveloperUserIdentifier :: Lens' UnlinkDeveloperIdentity Text
udiDeveloperUserIdentifier = lens _udiDeveloperUserIdentifier (\ s a -> s{_udiDeveloperUserIdentifier = a});
instance AWSRequest UnlinkDeveloperIdentity where
type Rs UnlinkDeveloperIdentity =
UnlinkDeveloperIdentityResponse
request = postJSON cognitoIdentity
response
= receiveNull UnlinkDeveloperIdentityResponse'
instance ToHeaders UnlinkDeveloperIdentity where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityService.UnlinkDeveloperIdentity"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UnlinkDeveloperIdentity where
toJSON UnlinkDeveloperIdentity'{..}
= object
(catMaybes
[Just ("IdentityId" .= _udiIdentityId),
Just ("IdentityPoolId" .= _udiIdentityPoolId),
Just
("DeveloperProviderName" .=
_udiDeveloperProviderName),
Just
("DeveloperUserIdentifier" .=
_udiDeveloperUserIdentifier)])
instance ToPath UnlinkDeveloperIdentity where
toPath = const "/"
instance ToQuery UnlinkDeveloperIdentity where
toQuery = const mempty
data UnlinkDeveloperIdentityResponse =
UnlinkDeveloperIdentityResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
unlinkDeveloperIdentityResponse
:: UnlinkDeveloperIdentityResponse
unlinkDeveloperIdentityResponse = UnlinkDeveloperIdentityResponse'