{-# 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.GetApplicationSettings
(
getApplicationSettings
, GetApplicationSettings
, gasApplicationId
, getApplicationSettingsResponse
, GetApplicationSettingsResponse
, gasrsResponseStatus
, gasrsApplicationSettingsResource
) 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
newtype GetApplicationSettings = GetApplicationSettings'
{ _gasApplicationId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getApplicationSettings
:: Text
-> GetApplicationSettings
getApplicationSettings pApplicationId_ =
GetApplicationSettings'
{ _gasApplicationId = pApplicationId_
}
gasApplicationId :: Lens' GetApplicationSettings Text
gasApplicationId = lens _gasApplicationId (\ s a -> s{_gasApplicationId = a});
instance AWSRequest GetApplicationSettings where
type Rs GetApplicationSettings =
GetApplicationSettingsResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetApplicationSettingsResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetApplicationSettings
instance NFData GetApplicationSettings
instance ToHeaders GetApplicationSettings where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetApplicationSettings where
toPath GetApplicationSettings'{..}
= mconcat
["/v1/apps/", toBS _gasApplicationId, "/settings"]
instance ToQuery GetApplicationSettings where
toQuery = const mempty
data GetApplicationSettingsResponse = GetApplicationSettingsResponse'
{ _gasrsResponseStatus :: !Int
, _gasrsApplicationSettingsResource :: !ApplicationSettingsResource
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getApplicationSettingsResponse
:: Int
-> ApplicationSettingsResource
-> GetApplicationSettingsResponse
getApplicationSettingsResponse pResponseStatus_ pApplicationSettingsResource_ =
GetApplicationSettingsResponse'
{ _gasrsResponseStatus = pResponseStatus_
, _gasrsApplicationSettingsResource = pApplicationSettingsResource_
}
gasrsResponseStatus :: Lens' GetApplicationSettingsResponse Int
gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a});
gasrsApplicationSettingsResource :: Lens' GetApplicationSettingsResponse ApplicationSettingsResource
gasrsApplicationSettingsResource = lens _gasrsApplicationSettingsResource (\ s a -> s{_gasrsApplicationSettingsResource = a});
instance NFData GetApplicationSettingsResponse