module Network.AWS.CloudTrail.DescribeTrails
(
describeTrails
, DescribeTrails
, dtTrailNameList
, describeTrailsResponse
, DescribeTrailsResponse
, dtrsTrailList
, dtrsResponseStatus
) where
import Network.AWS.CloudTrail.Types
import Network.AWS.CloudTrail.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeTrails = DescribeTrails'
{ _dtTrailNameList :: Maybe [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTrails
:: DescribeTrails
describeTrails =
DescribeTrails'
{ _dtTrailNameList = Nothing
}
dtTrailNameList :: Lens' DescribeTrails [Text]
dtTrailNameList = lens _dtTrailNameList (\ s a -> s{_dtTrailNameList = a}) . _Default . _Coerce;
instance AWSRequest DescribeTrails where
type Rs DescribeTrails = DescribeTrailsResponse
request = postJSON cloudTrail
response
= receiveJSON
(\ s h x ->
DescribeTrailsResponse' <$>
(x .?> "trailList" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders DescribeTrails where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.DescribeTrails"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeTrails where
toJSON DescribeTrails'{..}
= object
(catMaybes
[("trailNameList" .=) <$> _dtTrailNameList])
instance ToPath DescribeTrails where
toPath = const "/"
instance ToQuery DescribeTrails where
toQuery = const mempty
data DescribeTrailsResponse = DescribeTrailsResponse'
{ _dtrsTrailList :: !(Maybe [Trail])
, _dtrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTrailsResponse
:: Int
-> DescribeTrailsResponse
describeTrailsResponse pResponseStatus_ =
DescribeTrailsResponse'
{ _dtrsTrailList = Nothing
, _dtrsResponseStatus = pResponseStatus_
}
dtrsTrailList :: Lens' DescribeTrailsResponse [Trail]
dtrsTrailList = lens _dtrsTrailList (\ s a -> s{_dtrsTrailList = a}) . _Default . _Coerce;
dtrsResponseStatus :: Lens' DescribeTrailsResponse Int
dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});