{-# 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.GuardDuty.GetFindings
(
getFindings
, GetFindings
, gfFindingIds
, gfSortCriteria
, gfDetectorId
, getFindingsResponse
, GetFindingsResponse
, grsFindings
, grsResponseStatus
) where
import Network.AWS.GuardDuty.Types
import Network.AWS.GuardDuty.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetFindings = GetFindings'
{ _gfFindingIds :: !(Maybe [Text])
, _gfSortCriteria :: !(Maybe SortCriteria)
, _gfDetectorId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFindings
:: Text
-> GetFindings
getFindings pDetectorId_ =
GetFindings'
{ _gfFindingIds = Nothing
, _gfSortCriteria = Nothing
, _gfDetectorId = pDetectorId_
}
gfFindingIds :: Lens' GetFindings [Text]
gfFindingIds = lens _gfFindingIds (\ s a -> s{_gfFindingIds = a}) . _Default . _Coerce
gfSortCriteria :: Lens' GetFindings (Maybe SortCriteria)
gfSortCriteria = lens _gfSortCriteria (\ s a -> s{_gfSortCriteria = a})
gfDetectorId :: Lens' GetFindings Text
gfDetectorId = lens _gfDetectorId (\ s a -> s{_gfDetectorId = a})
instance AWSRequest GetFindings where
type Rs GetFindings = GetFindingsResponse
request = postJSON guardDuty
response
= receiveJSON
(\ s h x ->
GetFindingsResponse' <$>
(x .?> "findings" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable GetFindings where
instance NFData GetFindings where
instance ToHeaders GetFindings where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetFindings where
toJSON GetFindings'{..}
= object
(catMaybes
[("findingIds" .=) <$> _gfFindingIds,
("sortCriteria" .=) <$> _gfSortCriteria])
instance ToPath GetFindings where
toPath GetFindings'{..}
= mconcat
["/detector/", toBS _gfDetectorId, "/findings/get"]
instance ToQuery GetFindings where
toQuery = const mempty
data GetFindingsResponse = GetFindingsResponse'
{ _grsFindings :: !(Maybe [Finding])
, _grsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFindingsResponse
:: Int
-> GetFindingsResponse
getFindingsResponse pResponseStatus_ =
GetFindingsResponse'
{_grsFindings = Nothing, _grsResponseStatus = pResponseStatus_}
grsFindings :: Lens' GetFindingsResponse [Finding]
grsFindings = lens _grsFindings (\ s a -> s{_grsFindings = a}) . _Default . _Coerce
grsResponseStatus :: Lens' GetFindingsResponse Int
grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a})
instance NFData GetFindingsResponse where