module Network.AWS.Pinpoint.DeleteAPNSSandboxChannel
(
deleteAPNSSandboxChannel
, DeleteAPNSSandboxChannel
, dascApplicationId
, deleteAPNSSandboxChannelResponse
, DeleteAPNSSandboxChannelResponse
, dascrsResponseStatus
, dascrsAPNSSandboxChannelResponse
) 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 DeleteAPNSSandboxChannel = DeleteAPNSSandboxChannel'
{ _dascApplicationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAPNSSandboxChannel
:: Text
-> DeleteAPNSSandboxChannel
deleteAPNSSandboxChannel pApplicationId_ =
DeleteAPNSSandboxChannel' {_dascApplicationId = pApplicationId_}
dascApplicationId :: Lens' DeleteAPNSSandboxChannel Text
dascApplicationId = lens _dascApplicationId (\ s a -> s{_dascApplicationId = a});
instance AWSRequest DeleteAPNSSandboxChannel where
type Rs DeleteAPNSSandboxChannel =
DeleteAPNSSandboxChannelResponse
request = delete pinpoint
response
= receiveJSON
(\ s h x ->
DeleteAPNSSandboxChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable DeleteAPNSSandboxChannel where
instance NFData DeleteAPNSSandboxChannel where
instance ToHeaders DeleteAPNSSandboxChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteAPNSSandboxChannel where
toPath DeleteAPNSSandboxChannel'{..}
= mconcat
["/v1/apps/", toBS _dascApplicationId,
"/channels/apns_sandbox"]
instance ToQuery DeleteAPNSSandboxChannel where
toQuery = const mempty
data DeleteAPNSSandboxChannelResponse = DeleteAPNSSandboxChannelResponse'
{ _dascrsResponseStatus :: !Int
, _dascrsAPNSSandboxChannelResponse :: !APNSSandboxChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAPNSSandboxChannelResponse
:: Int
-> APNSSandboxChannelResponse
-> DeleteAPNSSandboxChannelResponse
deleteAPNSSandboxChannelResponse pResponseStatus_ pAPNSSandboxChannelResponse_ =
DeleteAPNSSandboxChannelResponse'
{ _dascrsResponseStatus = pResponseStatus_
, _dascrsAPNSSandboxChannelResponse = pAPNSSandboxChannelResponse_
}
dascrsResponseStatus :: Lens' DeleteAPNSSandboxChannelResponse Int
dascrsResponseStatus = lens _dascrsResponseStatus (\ s a -> s{_dascrsResponseStatus = a});
dascrsAPNSSandboxChannelResponse :: Lens' DeleteAPNSSandboxChannelResponse APNSSandboxChannelResponse
dascrsAPNSSandboxChannelResponse = lens _dascrsAPNSSandboxChannelResponse (\ s a -> s{_dascrsAPNSSandboxChannelResponse = a});
instance NFData DeleteAPNSSandboxChannelResponse
where