module Network.AWS.CognitoSync.DescribeIdentityPoolUsage
(
DescribeIdentityPoolUsage
, describeIdentityPoolUsage
, dipuIdentityPoolId
, DescribeIdentityPoolUsageResponse
, describeIdentityPoolUsageResponse
, dipurIdentityPoolUsage
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestJSON
import Network.AWS.CognitoSync.Types
import qualified GHC.Exts
newtype DescribeIdentityPoolUsage = DescribeIdentityPoolUsage
{ _dipuIdentityPoolId :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
describeIdentityPoolUsage :: Text
-> DescribeIdentityPoolUsage
describeIdentityPoolUsage p1 = DescribeIdentityPoolUsage
{ _dipuIdentityPoolId = p1
}
dipuIdentityPoolId :: Lens' DescribeIdentityPoolUsage Text
dipuIdentityPoolId =
lens _dipuIdentityPoolId (\s a -> s { _dipuIdentityPoolId = a })
newtype DescribeIdentityPoolUsageResponse = DescribeIdentityPoolUsageResponse
{ _dipurIdentityPoolUsage :: Maybe IdentityPoolUsage
} deriving (Eq, Show)
describeIdentityPoolUsageResponse :: DescribeIdentityPoolUsageResponse
describeIdentityPoolUsageResponse = DescribeIdentityPoolUsageResponse
{ _dipurIdentityPoolUsage = Nothing
}
dipurIdentityPoolUsage :: Lens' DescribeIdentityPoolUsageResponse (Maybe IdentityPoolUsage)
dipurIdentityPoolUsage =
lens _dipurIdentityPoolUsage (\s a -> s { _dipurIdentityPoolUsage = a })
instance ToPath DescribeIdentityPoolUsage where
toPath DescribeIdentityPoolUsage{..} = mconcat
[ "/identitypools/"
, toText _dipuIdentityPoolId
]
instance ToQuery DescribeIdentityPoolUsage where
toQuery = const mempty
instance ToHeaders DescribeIdentityPoolUsage
instance ToJSON DescribeIdentityPoolUsage where
toJSON = const (toJSON Empty)
instance AWSRequest DescribeIdentityPoolUsage where
type Sv DescribeIdentityPoolUsage = CognitoSync
type Rs DescribeIdentityPoolUsage = DescribeIdentityPoolUsageResponse
request = get
response = jsonResponse
instance FromJSON DescribeIdentityPoolUsageResponse where
parseJSON = withObject "DescribeIdentityPoolUsageResponse" $ \o -> DescribeIdentityPoolUsageResponse
<$> o .:? "IdentityPoolUsage"