{-# 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.DirectoryService.DeleteTrust
(
deleteTrust
, DeleteTrust
, dtDeleteAssociatedConditionalForwarder
, dtTrustId
, deleteTrustResponse
, DeleteTrustResponse
, dttrsTrustId
, dttrsResponseStatus
) where
import Network.AWS.DirectoryService.Types
import Network.AWS.DirectoryService.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteTrust = DeleteTrust'
{ _dtDeleteAssociatedConditionalForwarder :: !(Maybe Bool)
, _dtTrustId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTrust
:: Text
-> DeleteTrust
deleteTrust pTrustId_ =
DeleteTrust'
{_dtDeleteAssociatedConditionalForwarder = Nothing, _dtTrustId = pTrustId_}
dtDeleteAssociatedConditionalForwarder :: Lens' DeleteTrust (Maybe Bool)
dtDeleteAssociatedConditionalForwarder = lens _dtDeleteAssociatedConditionalForwarder (\ s a -> s{_dtDeleteAssociatedConditionalForwarder = a})
dtTrustId :: Lens' DeleteTrust Text
dtTrustId = lens _dtTrustId (\ s a -> s{_dtTrustId = a})
instance AWSRequest DeleteTrust where
type Rs DeleteTrust = DeleteTrustResponse
request = postJSON directoryService
response
= receiveJSON
(\ s h x ->
DeleteTrustResponse' <$>
(x .?> "TrustId") <*> (pure (fromEnum s)))
instance Hashable DeleteTrust where
instance NFData DeleteTrust where
instance ToHeaders DeleteTrust where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DirectoryService_20150416.DeleteTrust" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteTrust where
toJSON DeleteTrust'{..}
= object
(catMaybes
[("DeleteAssociatedConditionalForwarder" .=) <$>
_dtDeleteAssociatedConditionalForwarder,
Just ("TrustId" .= _dtTrustId)])
instance ToPath DeleteTrust where
toPath = const "/"
instance ToQuery DeleteTrust where
toQuery = const mempty
data DeleteTrustResponse = DeleteTrustResponse'
{ _dttrsTrustId :: !(Maybe Text)
, _dttrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTrustResponse
:: Int
-> DeleteTrustResponse
deleteTrustResponse pResponseStatus_ =
DeleteTrustResponse'
{_dttrsTrustId = Nothing, _dttrsResponseStatus = pResponseStatus_}
dttrsTrustId :: Lens' DeleteTrustResponse (Maybe Text)
dttrsTrustId = lens _dttrsTrustId (\ s a -> s{_dttrsTrustId = a})
dttrsResponseStatus :: Lens' DeleteTrustResponse Int
dttrsResponseStatus = lens _dttrsResponseStatus (\ s a -> s{_dttrsResponseStatus = a})
instance NFData DeleteTrustResponse where