module Network.AWS.CognitoIdentity.DeleteIdentities
(
deleteIdentities
, DeleteIdentities
, diIdentityIdsToDelete
, deleteIdentitiesResponse
, DeleteIdentitiesResponse
, dirsUnprocessedIdentityIds
, dirsStatus
) where
import Network.AWS.CognitoIdentity.Types
import Network.AWS.CognitoIdentity.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteIdentities = DeleteIdentities'
{ _diIdentityIdsToDelete :: List1 Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteIdentities
:: NonEmpty Text
-> DeleteIdentities
deleteIdentities pIdentityIdsToDelete_ =
DeleteIdentities'
{ _diIdentityIdsToDelete = _List1 # pIdentityIdsToDelete_
}
diIdentityIdsToDelete :: Lens' DeleteIdentities (NonEmpty Text)
diIdentityIdsToDelete = lens _diIdentityIdsToDelete (\ s a -> s{_diIdentityIdsToDelete = a}) . _List1;
instance AWSRequest DeleteIdentities where
type Sv DeleteIdentities = CognitoIdentity
type Rs DeleteIdentities = DeleteIdentitiesResponse
request = postJSON
response
= receiveJSON
(\ s h x ->
DeleteIdentitiesResponse' <$>
(x .?> "UnprocessedIdentityIds" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders DeleteIdentities where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityService.DeleteIdentities" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteIdentities where
toJSON DeleteIdentities'{..}
= object
["IdentityIdsToDelete" .= _diIdentityIdsToDelete]
instance ToPath DeleteIdentities where
toPath = const "/"
instance ToQuery DeleteIdentities where
toQuery = const mempty
data DeleteIdentitiesResponse = DeleteIdentitiesResponse'
{ _dirsUnprocessedIdentityIds :: !(Maybe [UnprocessedIdentityId])
, _dirsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteIdentitiesResponse
:: Int
-> DeleteIdentitiesResponse
deleteIdentitiesResponse pStatus_ =
DeleteIdentitiesResponse'
{ _dirsUnprocessedIdentityIds = Nothing
, _dirsStatus = pStatus_
}
dirsUnprocessedIdentityIds :: Lens' DeleteIdentitiesResponse [UnprocessedIdentityId]
dirsUnprocessedIdentityIds = lens _dirsUnprocessedIdentityIds (\ s a -> s{_dirsUnprocessedIdentityIds = a}) . _Default . _Coerce;
dirsStatus :: Lens' DeleteIdentitiesResponse Int
dirsStatus = lens _dirsStatus (\ s a -> s{_dirsStatus = a});