{-# 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.DescribeTrusts
(
describeTrusts
, DescribeTrusts
, dtDirectoryId
, dtNextToken
, dtTrustIds
, dtLimit
, describeTrustsResponse
, DescribeTrustsResponse
, dtrsNextToken
, dtrsTrusts
, dtrsResponseStatus
) 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 DescribeTrusts = DescribeTrusts'
{ _dtDirectoryId :: !(Maybe Text)
, _dtNextToken :: !(Maybe Text)
, _dtTrustIds :: !(Maybe [Text])
, _dtLimit :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTrusts
:: DescribeTrusts
describeTrusts =
DescribeTrusts'
{ _dtDirectoryId = Nothing
, _dtNextToken = Nothing
, _dtTrustIds = Nothing
, _dtLimit = Nothing
}
dtDirectoryId :: Lens' DescribeTrusts (Maybe Text)
dtDirectoryId = lens _dtDirectoryId (\ s a -> s{_dtDirectoryId = a});
dtNextToken :: Lens' DescribeTrusts (Maybe Text)
dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a});
dtTrustIds :: Lens' DescribeTrusts [Text]
dtTrustIds = lens _dtTrustIds (\ s a -> s{_dtTrustIds = a}) . _Default . _Coerce;
dtLimit :: Lens' DescribeTrusts (Maybe Natural)
dtLimit = lens _dtLimit (\ s a -> s{_dtLimit = a}) . mapping _Nat;
instance AWSRequest DescribeTrusts where
type Rs DescribeTrusts = DescribeTrustsResponse
request = postJSON directoryService
response
= receiveJSON
(\ s h x ->
DescribeTrustsResponse' <$>
(x .?> "NextToken") <*> (x .?> "Trusts" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeTrusts
instance NFData DescribeTrusts
instance ToHeaders DescribeTrusts where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DirectoryService_20150416.DescribeTrusts" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeTrusts where
toJSON DescribeTrusts'{..}
= object
(catMaybes
[("DirectoryId" .=) <$> _dtDirectoryId,
("NextToken" .=) <$> _dtNextToken,
("TrustIds" .=) <$> _dtTrustIds,
("Limit" .=) <$> _dtLimit])
instance ToPath DescribeTrusts where
toPath = const "/"
instance ToQuery DescribeTrusts where
toQuery = const mempty
data DescribeTrustsResponse = DescribeTrustsResponse'
{ _dtrsNextToken :: !(Maybe Text)
, _dtrsTrusts :: !(Maybe [Trust])
, _dtrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTrustsResponse
:: Int
-> DescribeTrustsResponse
describeTrustsResponse pResponseStatus_ =
DescribeTrustsResponse'
{ _dtrsNextToken = Nothing
, _dtrsTrusts = Nothing
, _dtrsResponseStatus = pResponseStatus_
}
dtrsNextToken :: Lens' DescribeTrustsResponse (Maybe Text)
dtrsNextToken = lens _dtrsNextToken (\ s a -> s{_dtrsNextToken = a});
dtrsTrusts :: Lens' DescribeTrustsResponse [Trust]
dtrsTrusts = lens _dtrsTrusts (\ s a -> s{_dtrsTrusts = a}) . _Default . _Coerce;
dtrsResponseStatus :: Lens' DescribeTrustsResponse Int
dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});
instance NFData DescribeTrustsResponse