{-# 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.CreateDetector
(
createDetector
, CreateDetector
, cdEnable
, createDetectorResponse
, CreateDetectorResponse
, cdrsDetectorId
, cdrsResponseStatus
) 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
newtype CreateDetector = CreateDetector'
{ _cdEnable :: Maybe Bool
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDetector
:: CreateDetector
createDetector = CreateDetector' {_cdEnable = Nothing}
cdEnable :: Lens' CreateDetector (Maybe Bool)
cdEnable = lens _cdEnable (\ s a -> s{_cdEnable = a})
instance AWSRequest CreateDetector where
type Rs CreateDetector = CreateDetectorResponse
request = postJSON guardDuty
response
= receiveJSON
(\ s h x ->
CreateDetectorResponse' <$>
(x .?> "detectorId") <*> (pure (fromEnum s)))
instance Hashable CreateDetector where
instance NFData CreateDetector where
instance ToHeaders CreateDetector where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateDetector where
toJSON CreateDetector'{..}
= object (catMaybes [("enable" .=) <$> _cdEnable])
instance ToPath CreateDetector where
toPath = const "/detector"
instance ToQuery CreateDetector where
toQuery = const mempty
data CreateDetectorResponse = CreateDetectorResponse'
{ _cdrsDetectorId :: !(Maybe Text)
, _cdrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDetectorResponse
:: Int
-> CreateDetectorResponse
createDetectorResponse pResponseStatus_ =
CreateDetectorResponse'
{_cdrsDetectorId = Nothing, _cdrsResponseStatus = pResponseStatus_}
cdrsDetectorId :: Lens' CreateDetectorResponse (Maybe Text)
cdrsDetectorId = lens _cdrsDetectorId (\ s a -> s{_cdrsDetectorId = a})
cdrsResponseStatus :: Lens' CreateDetectorResponse Int
cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})
instance NFData CreateDetectorResponse where