module Network.AWS.CloudDirectory.DeleteTypedLinkFacet
(
deleteTypedLinkFacet
, DeleteTypedLinkFacet
, dtlfSchemaARN
, dtlfName
, deleteTypedLinkFacetResponse
, DeleteTypedLinkFacetResponse
, dtlfrsResponseStatus
) where
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteTypedLinkFacet = DeleteTypedLinkFacet'
{ _dtlfSchemaARN :: !Text
, _dtlfName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTypedLinkFacet
:: Text
-> Text
-> DeleteTypedLinkFacet
deleteTypedLinkFacet pSchemaARN_ pName_ =
DeleteTypedLinkFacet' {_dtlfSchemaARN = pSchemaARN_, _dtlfName = pName_}
dtlfSchemaARN :: Lens' DeleteTypedLinkFacet Text
dtlfSchemaARN = lens _dtlfSchemaARN (\ s a -> s{_dtlfSchemaARN = a});
dtlfName :: Lens' DeleteTypedLinkFacet Text
dtlfName = lens _dtlfName (\ s a -> s{_dtlfName = a});
instance AWSRequest DeleteTypedLinkFacet where
type Rs DeleteTypedLinkFacet =
DeleteTypedLinkFacetResponse
request = putJSON cloudDirectory
response
= receiveEmpty
(\ s h x ->
DeleteTypedLinkFacetResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteTypedLinkFacet where
instance NFData DeleteTypedLinkFacet where
instance ToHeaders DeleteTypedLinkFacet where
toHeaders DeleteTypedLinkFacet'{..}
= mconcat ["x-amz-data-partition" =# _dtlfSchemaARN]
instance ToJSON DeleteTypedLinkFacet where
toJSON DeleteTypedLinkFacet'{..}
= object (catMaybes [Just ("Name" .= _dtlfName)])
instance ToPath DeleteTypedLinkFacet where
toPath
= const
"/amazonclouddirectory/2017-01-11/typedlink/facet/delete"
instance ToQuery DeleteTypedLinkFacet where
toQuery = const mempty
newtype DeleteTypedLinkFacetResponse = DeleteTypedLinkFacetResponse'
{ _dtlfrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTypedLinkFacetResponse
:: Int
-> DeleteTypedLinkFacetResponse
deleteTypedLinkFacetResponse pResponseStatus_ =
DeleteTypedLinkFacetResponse' {_dtlfrsResponseStatus = pResponseStatus_}
dtlfrsResponseStatus :: Lens' DeleteTypedLinkFacetResponse Int
dtlfrsResponseStatus = lens _dtlfrsResponseStatus (\ s a -> s{_dtlfrsResponseStatus = a});
instance NFData DeleteTypedLinkFacetResponse where