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
instance NFData DeleteTrust
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