module Network.AWS.CognitoSync.DescribeIdentityUsage
(
describeIdentityUsage
, DescribeIdentityUsage
, diuIdentityPoolId
, diuIdentityId
, describeIdentityUsageResponse
, DescribeIdentityUsageResponse
, diursIdentityUsage
, diursResponseStatus
) where
import Network.AWS.CognitoSync.Types
import Network.AWS.CognitoSync.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeIdentityUsage = DescribeIdentityUsage'
{ _diuIdentityPoolId :: !Text
, _diuIdentityId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeIdentityUsage
:: Text
-> Text
-> DescribeIdentityUsage
describeIdentityUsage pIdentityPoolId_ pIdentityId_ =
DescribeIdentityUsage'
{ _diuIdentityPoolId = pIdentityPoolId_
, _diuIdentityId = pIdentityId_
}
diuIdentityPoolId :: Lens' DescribeIdentityUsage Text
diuIdentityPoolId = lens _diuIdentityPoolId (\ s a -> s{_diuIdentityPoolId = a});
diuIdentityId :: Lens' DescribeIdentityUsage Text
diuIdentityId = lens _diuIdentityId (\ s a -> s{_diuIdentityId = a});
instance AWSRequest DescribeIdentityUsage where
type Rs DescribeIdentityUsage =
DescribeIdentityUsageResponse
request = get cognitoSync
response
= receiveJSON
(\ s h x ->
DescribeIdentityUsageResponse' <$>
(x .?> "IdentityUsage") <*> (pure (fromEnum s)))
instance ToHeaders DescribeIdentityUsage where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DescribeIdentityUsage where
toPath DescribeIdentityUsage'{..}
= mconcat
["/identitypools/", toBS _diuIdentityPoolId,
"/identities/", toBS _diuIdentityId]
instance ToQuery DescribeIdentityUsage where
toQuery = const mempty
data DescribeIdentityUsageResponse = DescribeIdentityUsageResponse'
{ _diursIdentityUsage :: !(Maybe IdentityUsage)
, _diursResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeIdentityUsageResponse
:: Int
-> DescribeIdentityUsageResponse
describeIdentityUsageResponse pResponseStatus_ =
DescribeIdentityUsageResponse'
{ _diursIdentityUsage = Nothing
, _diursResponseStatus = pResponseStatus_
}
diursIdentityUsage :: Lens' DescribeIdentityUsageResponse (Maybe IdentityUsage)
diursIdentityUsage = lens _diursIdentityUsage (\ s a -> s{_diursIdentityUsage = a});
diursResponseStatus :: Lens' DescribeIdentityUsageResponse Int
diursResponseStatus = lens _diursResponseStatus (\ s a -> s{_diursResponseStatus = a});