{-# 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.UpdateADMChannel
(
updateADMChannel
, UpdateADMChannel
, uadmcApplicationId
, uadmcADMChannelRequest
, updateADMChannelResponse
, UpdateADMChannelResponse
, uadmcrsResponseStatus
, uadmcrsADMChannelResponse
) 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 UpdateADMChannel = UpdateADMChannel'
{ _uadmcApplicationId :: !Text
, _uadmcADMChannelRequest :: !ADMChannelRequest
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateADMChannel
:: Text
-> ADMChannelRequest
-> UpdateADMChannel
updateADMChannel pApplicationId_ pADMChannelRequest_ =
UpdateADMChannel'
{ _uadmcApplicationId = pApplicationId_
, _uadmcADMChannelRequest = pADMChannelRequest_
}
uadmcApplicationId :: Lens' UpdateADMChannel Text
uadmcApplicationId = lens _uadmcApplicationId (\ s a -> s{_uadmcApplicationId = a})
uadmcADMChannelRequest :: Lens' UpdateADMChannel ADMChannelRequest
uadmcADMChannelRequest = lens _uadmcADMChannelRequest (\ s a -> s{_uadmcADMChannelRequest = a})
instance AWSRequest UpdateADMChannel where
type Rs UpdateADMChannel = UpdateADMChannelResponse
request = putJSON pinpoint
response
= receiveJSON
(\ s h x ->
UpdateADMChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable UpdateADMChannel where
instance NFData UpdateADMChannel where
instance ToHeaders UpdateADMChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateADMChannel where
toJSON UpdateADMChannel'{..}
= object
(catMaybes
[Just
("ADMChannelRequest" .= _uadmcADMChannelRequest)])
instance ToPath UpdateADMChannel where
toPath UpdateADMChannel'{..}
= mconcat
["/v1/apps/", toBS _uadmcApplicationId,
"/channels/adm"]
instance ToQuery UpdateADMChannel where
toQuery = const mempty
data UpdateADMChannelResponse = UpdateADMChannelResponse'
{ _uadmcrsResponseStatus :: !Int
, _uadmcrsADMChannelResponse :: !ADMChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateADMChannelResponse
:: Int
-> ADMChannelResponse
-> UpdateADMChannelResponse
updateADMChannelResponse pResponseStatus_ pADMChannelResponse_ =
UpdateADMChannelResponse'
{ _uadmcrsResponseStatus = pResponseStatus_
, _uadmcrsADMChannelResponse = pADMChannelResponse_
}
uadmcrsResponseStatus :: Lens' UpdateADMChannelResponse Int
uadmcrsResponseStatus = lens _uadmcrsResponseStatus (\ s a -> s{_uadmcrsResponseStatus = a})
uadmcrsADMChannelResponse :: Lens' UpdateADMChannelResponse ADMChannelResponse
uadmcrsADMChannelResponse = lens _uadmcrsADMChannelResponse (\ s a -> s{_uadmcrsADMChannelResponse = a})
instance NFData UpdateADMChannelResponse where