module Network.AWS.SNS.DeletePlatformApplication
(
DeletePlatformApplication
, deletePlatformApplication
, dpaPlatformApplicationArn
, DeletePlatformApplicationResponse
, deletePlatformApplicationResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.SNS.Types
import qualified GHC.Exts
newtype DeletePlatformApplication = DeletePlatformApplication
{ _dpaPlatformApplicationArn :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
deletePlatformApplication :: Text
-> DeletePlatformApplication
deletePlatformApplication p1 = DeletePlatformApplication
{ _dpaPlatformApplicationArn = p1
}
dpaPlatformApplicationArn :: Lens' DeletePlatformApplication Text
dpaPlatformApplicationArn =
lens _dpaPlatformApplicationArn
(\s a -> s { _dpaPlatformApplicationArn = a })
data DeletePlatformApplicationResponse = DeletePlatformApplicationResponse
deriving (Eq, Ord, Show, Generic)
deletePlatformApplicationResponse :: DeletePlatformApplicationResponse
deletePlatformApplicationResponse = DeletePlatformApplicationResponse
instance ToPath DeletePlatformApplication where
toPath = const "/"
instance ToQuery DeletePlatformApplication where
toQuery DeletePlatformApplication{..} = mconcat
[ "PlatformApplicationArn" =? _dpaPlatformApplicationArn
]
instance ToHeaders DeletePlatformApplication
instance AWSRequest DeletePlatformApplication where
type Sv DeletePlatformApplication = SNS
type Rs DeletePlatformApplication = DeletePlatformApplicationResponse
request = post "DeletePlatformApplication"
response = nullResponse DeletePlatformApplicationResponse