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 Hashable DescribeIdentityUsage where
instance NFData DescribeIdentityUsage where
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});
instance NFData DescribeIdentityUsageResponse where