{-# 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.DeleteAPNSVoipSandboxChannel
(
deleteAPNSVoipSandboxChannel
, DeleteAPNSVoipSandboxChannel
, davscApplicationId
, deleteAPNSVoipSandboxChannelResponse
, DeleteAPNSVoipSandboxChannelResponse
, davscrsResponseStatus
, davscrsAPNSVoipSandboxChannelResponse
) 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 DeleteAPNSVoipSandboxChannel = DeleteAPNSVoipSandboxChannel'
{ _davscApplicationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAPNSVoipSandboxChannel
:: Text
-> DeleteAPNSVoipSandboxChannel
deleteAPNSVoipSandboxChannel pApplicationId_ =
DeleteAPNSVoipSandboxChannel' {_davscApplicationId = pApplicationId_}
davscApplicationId :: Lens' DeleteAPNSVoipSandboxChannel Text
davscApplicationId = lens _davscApplicationId (\ s a -> s{_davscApplicationId = a})
instance AWSRequest DeleteAPNSVoipSandboxChannel
where
type Rs DeleteAPNSVoipSandboxChannel =
DeleteAPNSVoipSandboxChannelResponse
request = delete pinpoint
response
= receiveJSON
(\ s h x ->
DeleteAPNSVoipSandboxChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable DeleteAPNSVoipSandboxChannel where
instance NFData DeleteAPNSVoipSandboxChannel where
instance ToHeaders DeleteAPNSVoipSandboxChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteAPNSVoipSandboxChannel where
toPath DeleteAPNSVoipSandboxChannel'{..}
= mconcat
["/v1/apps/", toBS _davscApplicationId,
"/channels/apns_voip_sandbox"]
instance ToQuery DeleteAPNSVoipSandboxChannel where
toQuery = const mempty
data DeleteAPNSVoipSandboxChannelResponse = DeleteAPNSVoipSandboxChannelResponse'
{ _davscrsResponseStatus :: !Int
, _davscrsAPNSVoipSandboxChannelResponse :: !APNSVoipSandboxChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAPNSVoipSandboxChannelResponse
:: Int
-> APNSVoipSandboxChannelResponse
-> DeleteAPNSVoipSandboxChannelResponse
deleteAPNSVoipSandboxChannelResponse pResponseStatus_ pAPNSVoipSandboxChannelResponse_ =
DeleteAPNSVoipSandboxChannelResponse'
{ _davscrsResponseStatus = pResponseStatus_
, _davscrsAPNSVoipSandboxChannelResponse = pAPNSVoipSandboxChannelResponse_
}
davscrsResponseStatus :: Lens' DeleteAPNSVoipSandboxChannelResponse Int
davscrsResponseStatus = lens _davscrsResponseStatus (\ s a -> s{_davscrsResponseStatus = a})
davscrsAPNSVoipSandboxChannelResponse :: Lens' DeleteAPNSVoipSandboxChannelResponse APNSVoipSandboxChannelResponse
davscrsAPNSVoipSandboxChannelResponse = lens _davscrsAPNSVoipSandboxChannelResponse (\ s a -> s{_davscrsAPNSVoipSandboxChannelResponse = a})
instance NFData DeleteAPNSVoipSandboxChannelResponse
where