module Network.AWS.DirectoryService.DeleteTrust
(
deleteTrust
, DeleteTrust
, dtTrustId
, deleteTrustResponse
, DeleteTrustResponse
, delrsTrustId
, delrsResponseStatus
) 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
newtype DeleteTrust = DeleteTrust'
{ _dtTrustId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteTrust
:: Text
-> DeleteTrust
deleteTrust pTrustId_ =
DeleteTrust'
{ _dtTrustId = pTrustId_
}
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 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 [Just ("TrustId" .= _dtTrustId)])
instance ToPath DeleteTrust where
toPath = const "/"
instance ToQuery DeleteTrust where
toQuery = const mempty
data DeleteTrustResponse = DeleteTrustResponse'
{ _delrsTrustId :: !(Maybe Text)
, _delrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteTrustResponse
:: Int
-> DeleteTrustResponse
deleteTrustResponse pResponseStatus_ =
DeleteTrustResponse'
{ _delrsTrustId = Nothing
, _delrsResponseStatus = pResponseStatus_
}
delrsTrustId :: Lens' DeleteTrustResponse (Maybe Text)
delrsTrustId = lens _delrsTrustId (\ s a -> s{_delrsTrustId = a});
delrsResponseStatus :: Lens' DeleteTrustResponse Int
delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});