{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.AppSync.ListAPIKeys
(
listAPIKeys
, ListAPIKeys
, lakNextToken
, lakMaxResults
, lakApiId
, listAPIKeysResponse
, ListAPIKeysResponse
, lakrsApiKeys
, lakrsNextToken
, lakrsResponseStatus
) where
import Network.AWS.AppSync.Types
import Network.AWS.AppSync.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListAPIKeys = ListAPIKeys'
{ _lakNextToken :: !(Maybe Text)
, _lakMaxResults :: !(Maybe Nat)
, _lakApiId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listAPIKeys
:: Text
-> ListAPIKeys
listAPIKeys pApiId_ =
ListAPIKeys'
{_lakNextToken = Nothing, _lakMaxResults = Nothing, _lakApiId = pApiId_}
lakNextToken :: Lens' ListAPIKeys (Maybe Text)
lakNextToken = lens _lakNextToken (\ s a -> s{_lakNextToken = a})
lakMaxResults :: Lens' ListAPIKeys (Maybe Natural)
lakMaxResults = lens _lakMaxResults (\ s a -> s{_lakMaxResults = a}) . mapping _Nat
lakApiId :: Lens' ListAPIKeys Text
lakApiId = lens _lakApiId (\ s a -> s{_lakApiId = a})
instance AWSRequest ListAPIKeys where
type Rs ListAPIKeys = ListAPIKeysResponse
request = get appSync
response
= receiveJSON
(\ s h x ->
ListAPIKeysResponse' <$>
(x .?> "apiKeys" .!@ mempty) <*> (x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListAPIKeys where
instance NFData ListAPIKeys where
instance ToHeaders ListAPIKeys where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListAPIKeys where
toPath ListAPIKeys'{..}
= mconcat ["/v1/apis/", toBS _lakApiId, "/apikeys"]
instance ToQuery ListAPIKeys where
toQuery ListAPIKeys'{..}
= mconcat
["nextToken" =: _lakNextToken,
"maxResults" =: _lakMaxResults]
data ListAPIKeysResponse = ListAPIKeysResponse'
{ _lakrsApiKeys :: !(Maybe [APIKey])
, _lakrsNextToken :: !(Maybe Text)
, _lakrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listAPIKeysResponse
:: Int
-> ListAPIKeysResponse
listAPIKeysResponse pResponseStatus_ =
ListAPIKeysResponse'
{ _lakrsApiKeys = Nothing
, _lakrsNextToken = Nothing
, _lakrsResponseStatus = pResponseStatus_
}
lakrsApiKeys :: Lens' ListAPIKeysResponse [APIKey]
lakrsApiKeys = lens _lakrsApiKeys (\ s a -> s{_lakrsApiKeys = a}) . _Default . _Coerce
lakrsNextToken :: Lens' ListAPIKeysResponse (Maybe Text)
lakrsNextToken = lens _lakrsNextToken (\ s a -> s{_lakrsNextToken = a})
lakrsResponseStatus :: Lens' ListAPIKeysResponse Int
lakrsResponseStatus = lens _lakrsResponseStatus (\ s a -> s{_lakrsResponseStatus = a})
instance NFData ListAPIKeysResponse where