{-# 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.Pinpoint.GetApps
(
getApps
, GetApps
, gaToken
, gaPageSize
, getAppsResponse
, GetAppsResponse
, gasrsResponseStatus
, gasrsApplicationsResponse
) where
import Network.AWS.Lens
import Network.AWS.Pinpoint.Types
import Network.AWS.Pinpoint.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetApps = GetApps'
{ _gaToken :: !(Maybe Text)
, _gaPageSize :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getApps
:: GetApps
getApps = GetApps' {_gaToken = Nothing, _gaPageSize = Nothing}
gaToken :: Lens' GetApps (Maybe Text)
gaToken = lens _gaToken (\ s a -> s{_gaToken = a})
gaPageSize :: Lens' GetApps (Maybe Text)
gaPageSize = lens _gaPageSize (\ s a -> s{_gaPageSize = a})
instance AWSRequest GetApps where
type Rs GetApps = GetAppsResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetAppsResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetApps where
instance NFData GetApps where
instance ToHeaders GetApps where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetApps where
toPath = const "/v1/apps"
instance ToQuery GetApps where
toQuery GetApps'{..}
= mconcat
["token" =: _gaToken, "page-size" =: _gaPageSize]
data GetAppsResponse = GetAppsResponse'
{ _gasrsResponseStatus :: !Int
, _gasrsApplicationsResponse :: !ApplicationsResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAppsResponse
:: Int
-> ApplicationsResponse
-> GetAppsResponse
getAppsResponse pResponseStatus_ pApplicationsResponse_ =
GetAppsResponse'
{ _gasrsResponseStatus = pResponseStatus_
, _gasrsApplicationsResponse = pApplicationsResponse_
}
gasrsResponseStatus :: Lens' GetAppsResponse Int
gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a})
gasrsApplicationsResponse :: Lens' GetAppsResponse ApplicationsResponse
gasrsApplicationsResponse = lens _gasrsApplicationsResponse (\ s a -> s{_gasrsApplicationsResponse = a})
instance NFData GetAppsResponse where