{-# 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.Route53AutoNaming.DeleteNamespace
(
deleteNamespace
, DeleteNamespace
, dnId
, deleteNamespaceResponse
, DeleteNamespaceResponse
, dnrsOperationId
, dnrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53AutoNaming.Types
import Network.AWS.Route53AutoNaming.Types.Product
newtype DeleteNamespace = DeleteNamespace'
{ _dnId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteNamespace
:: Text
-> DeleteNamespace
deleteNamespace pId_ = DeleteNamespace' {_dnId = pId_}
dnId :: Lens' DeleteNamespace Text
dnId = lens _dnId (\ s a -> s{_dnId = a})
instance AWSRequest DeleteNamespace where
type Rs DeleteNamespace = DeleteNamespaceResponse
request = postJSON route53AutoNaming
response
= receiveJSON
(\ s h x ->
DeleteNamespaceResponse' <$>
(x .?> "OperationId") <*> (pure (fromEnum s)))
instance Hashable DeleteNamespace where
instance NFData DeleteNamespace where
instance ToHeaders DeleteNamespace where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Route53AutoNaming_v20170314.DeleteNamespace" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteNamespace where
toJSON DeleteNamespace'{..}
= object (catMaybes [Just ("Id" .= _dnId)])
instance ToPath DeleteNamespace where
toPath = const "/"
instance ToQuery DeleteNamespace where
toQuery = const mempty
data DeleteNamespaceResponse = DeleteNamespaceResponse'
{ _dnrsOperationId :: !(Maybe Text)
, _dnrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteNamespaceResponse
:: Int
-> DeleteNamespaceResponse
deleteNamespaceResponse pResponseStatus_ =
DeleteNamespaceResponse'
{_dnrsOperationId = Nothing, _dnrsResponseStatus = pResponseStatus_}
dnrsOperationId :: Lens' DeleteNamespaceResponse (Maybe Text)
dnrsOperationId = lens _dnrsOperationId (\ s a -> s{_dnrsOperationId = a})
dnrsResponseStatus :: Lens' DeleteNamespaceResponse Int
dnrsResponseStatus = lens _dnrsResponseStatus (\ s a -> s{_dnrsResponseStatus = a})
instance NFData DeleteNamespaceResponse where