{-# 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.UpdateFindingsFeedback
(
updateFindingsFeedback
, UpdateFindingsFeedback
, uffFindingIds
, uffComments
, uffFeedback
, uffDetectorId
, updateFindingsFeedbackResponse
, UpdateFindingsFeedbackResponse
, uffrsResponseStatus
) 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 UpdateFindingsFeedback = UpdateFindingsFeedback'
{ _uffFindingIds :: !(Maybe [Text])
, _uffComments :: !(Maybe Text)
, _uffFeedback :: !(Maybe Feedback)
, _uffDetectorId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateFindingsFeedback
:: Text
-> UpdateFindingsFeedback
updateFindingsFeedback pDetectorId_ =
UpdateFindingsFeedback'
{ _uffFindingIds = Nothing
, _uffComments = Nothing
, _uffFeedback = Nothing
, _uffDetectorId = pDetectorId_
}
uffFindingIds :: Lens' UpdateFindingsFeedback [Text]
uffFindingIds = lens _uffFindingIds (\ s a -> s{_uffFindingIds = a}) . _Default . _Coerce
uffComments :: Lens' UpdateFindingsFeedback (Maybe Text)
uffComments = lens _uffComments (\ s a -> s{_uffComments = a})
uffFeedback :: Lens' UpdateFindingsFeedback (Maybe Feedback)
uffFeedback = lens _uffFeedback (\ s a -> s{_uffFeedback = a})
uffDetectorId :: Lens' UpdateFindingsFeedback Text
uffDetectorId = lens _uffDetectorId (\ s a -> s{_uffDetectorId = a})
instance AWSRequest UpdateFindingsFeedback where
type Rs UpdateFindingsFeedback =
UpdateFindingsFeedbackResponse
request = postJSON guardDuty
response
= receiveEmpty
(\ s h x ->
UpdateFindingsFeedbackResponse' <$>
(pure (fromEnum s)))
instance Hashable UpdateFindingsFeedback where
instance NFData UpdateFindingsFeedback where
instance ToHeaders UpdateFindingsFeedback where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateFindingsFeedback where
toJSON UpdateFindingsFeedback'{..}
= object
(catMaybes
[("findingIds" .=) <$> _uffFindingIds,
("comments" .=) <$> _uffComments,
("feedback" .=) <$> _uffFeedback])
instance ToPath UpdateFindingsFeedback where
toPath UpdateFindingsFeedback'{..}
= mconcat
["/detector/", toBS _uffDetectorId,
"/findings/feedback"]
instance ToQuery UpdateFindingsFeedback where
toQuery = const mempty
newtype UpdateFindingsFeedbackResponse = UpdateFindingsFeedbackResponse'
{ _uffrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateFindingsFeedbackResponse
:: Int
-> UpdateFindingsFeedbackResponse
updateFindingsFeedbackResponse pResponseStatus_ =
UpdateFindingsFeedbackResponse' {_uffrsResponseStatus = pResponseStatus_}
uffrsResponseStatus :: Lens' UpdateFindingsFeedbackResponse Int
uffrsResponseStatus = lens _uffrsResponseStatus (\ s a -> s{_uffrsResponseStatus = a})
instance NFData UpdateFindingsFeedbackResponse where