{-# 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.GetThreatIntelSet
(
getThreatIntelSet
, GetThreatIntelSet
, gtisThreatIntelSetId
, gtisDetectorId
, getThreatIntelSetResponse
, GetThreatIntelSetResponse
, gtisrsStatus
, gtisrsLocation
, gtisrsFormat
, gtisrsName
, gtisrsResponseStatus
) 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 GetThreatIntelSet = GetThreatIntelSet'
{ _gtisThreatIntelSetId :: !Text
, _gtisDetectorId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getThreatIntelSet
:: Text
-> Text
-> GetThreatIntelSet
getThreatIntelSet pThreatIntelSetId_ pDetectorId_ =
GetThreatIntelSet'
{_gtisThreatIntelSetId = pThreatIntelSetId_, _gtisDetectorId = pDetectorId_}
gtisThreatIntelSetId :: Lens' GetThreatIntelSet Text
gtisThreatIntelSetId = lens _gtisThreatIntelSetId (\ s a -> s{_gtisThreatIntelSetId = a})
gtisDetectorId :: Lens' GetThreatIntelSet Text
gtisDetectorId = lens _gtisDetectorId (\ s a -> s{_gtisDetectorId = a})
instance AWSRequest GetThreatIntelSet where
type Rs GetThreatIntelSet = GetThreatIntelSetResponse
request = get guardDuty
response
= receiveJSON
(\ s h x ->
GetThreatIntelSetResponse' <$>
(x .?> "status") <*> (x .?> "location") <*>
(x .?> "format")
<*> (x .?> "name")
<*> (pure (fromEnum s)))
instance Hashable GetThreatIntelSet where
instance NFData GetThreatIntelSet where
instance ToHeaders GetThreatIntelSet where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetThreatIntelSet where
toPath GetThreatIntelSet'{..}
= mconcat
["/detector/", toBS _gtisDetectorId,
"/threatintelset/", toBS _gtisThreatIntelSetId]
instance ToQuery GetThreatIntelSet where
toQuery = const mempty
data GetThreatIntelSetResponse = GetThreatIntelSetResponse'
{ _gtisrsStatus :: !(Maybe ThreatIntelSetStatus)
, _gtisrsLocation :: !(Maybe Text)
, _gtisrsFormat :: !(Maybe ThreatIntelSetFormat)
, _gtisrsName :: !(Maybe Text)
, _gtisrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getThreatIntelSetResponse
:: Int
-> GetThreatIntelSetResponse
getThreatIntelSetResponse pResponseStatus_ =
GetThreatIntelSetResponse'
{ _gtisrsStatus = Nothing
, _gtisrsLocation = Nothing
, _gtisrsFormat = Nothing
, _gtisrsName = Nothing
, _gtisrsResponseStatus = pResponseStatus_
}
gtisrsStatus :: Lens' GetThreatIntelSetResponse (Maybe ThreatIntelSetStatus)
gtisrsStatus = lens _gtisrsStatus (\ s a -> s{_gtisrsStatus = a})
gtisrsLocation :: Lens' GetThreatIntelSetResponse (Maybe Text)
gtisrsLocation = lens _gtisrsLocation (\ s a -> s{_gtisrsLocation = a})
gtisrsFormat :: Lens' GetThreatIntelSetResponse (Maybe ThreatIntelSetFormat)
gtisrsFormat = lens _gtisrsFormat (\ s a -> s{_gtisrsFormat = a})
gtisrsName :: Lens' GetThreatIntelSetResponse (Maybe Text)
gtisrsName = lens _gtisrsName (\ s a -> s{_gtisrsName = a})
gtisrsResponseStatus :: Lens' GetThreatIntelSetResponse Int
gtisrsResponseStatus = lens _gtisrsResponseStatus (\ s a -> s{_gtisrsResponseStatus = a})
instance NFData GetThreatIntelSetResponse where