{-# 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.CloudTrail.DescribeTrails
(
describeTrails
, DescribeTrails
, dtIncludeShadowTrails
, dtTrailNameList
, describeTrailsResponse
, DescribeTrailsResponse
, dtrsTrailList
, dtrsResponseStatus
) where
import Network.AWS.CloudTrail.Types
import Network.AWS.CloudTrail.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeTrails = DescribeTrails'
{ _dtIncludeShadowTrails :: !(Maybe Bool)
, _dtTrailNameList :: !(Maybe [Text])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTrails
:: DescribeTrails
describeTrails =
DescribeTrails'
{ _dtIncludeShadowTrails = Nothing
, _dtTrailNameList = Nothing
}
dtIncludeShadowTrails :: Lens' DescribeTrails (Maybe Bool)
dtIncludeShadowTrails = lens _dtIncludeShadowTrails (\ s a -> s{_dtIncludeShadowTrails = a});
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 Hashable DescribeTrails
instance NFData DescribeTrails
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
[("includeShadowTrails" .=) <$>
_dtIncludeShadowTrails,
("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});
instance NFData DescribeTrailsResponse