{-# 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.MediaLive.CreateInputSecurityGroup
(
createInputSecurityGroup
, CreateInputSecurityGroup
, cisgWhitelistRules
, createInputSecurityGroupResponse
, CreateInputSecurityGroupResponse
, cisgrsSecurityGroup
, cisgrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaLive.Types
import Network.AWS.MediaLive.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype CreateInputSecurityGroup = CreateInputSecurityGroup'
{ _cisgWhitelistRules :: Maybe [InputWhitelistRuleCidr]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createInputSecurityGroup
:: CreateInputSecurityGroup
createInputSecurityGroup =
CreateInputSecurityGroup' {_cisgWhitelistRules = Nothing}
cisgWhitelistRules :: Lens' CreateInputSecurityGroup [InputWhitelistRuleCidr]
cisgWhitelistRules = lens _cisgWhitelistRules (\ s a -> s{_cisgWhitelistRules = a}) . _Default . _Coerce
instance AWSRequest CreateInputSecurityGroup where
type Rs CreateInputSecurityGroup =
CreateInputSecurityGroupResponse
request = postJSON mediaLive
response
= receiveJSON
(\ s h x ->
CreateInputSecurityGroupResponse' <$>
(x .?> "securityGroup") <*> (pure (fromEnum s)))
instance Hashable CreateInputSecurityGroup where
instance NFData CreateInputSecurityGroup where
instance ToHeaders CreateInputSecurityGroup where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateInputSecurityGroup where
toJSON CreateInputSecurityGroup'{..}
= object
(catMaybes
[("whitelistRules" .=) <$> _cisgWhitelistRules])
instance ToPath CreateInputSecurityGroup where
toPath = const "/prod/inputSecurityGroups"
instance ToQuery CreateInputSecurityGroup where
toQuery = const mempty
data CreateInputSecurityGroupResponse = CreateInputSecurityGroupResponse'
{ _cisgrsSecurityGroup :: !(Maybe InputSecurityGroup)
, _cisgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createInputSecurityGroupResponse
:: Int
-> CreateInputSecurityGroupResponse
createInputSecurityGroupResponse pResponseStatus_ =
CreateInputSecurityGroupResponse'
{_cisgrsSecurityGroup = Nothing, _cisgrsResponseStatus = pResponseStatus_}
cisgrsSecurityGroup :: Lens' CreateInputSecurityGroupResponse (Maybe InputSecurityGroup)
cisgrsSecurityGroup = lens _cisgrsSecurityGroup (\ s a -> s{_cisgrsSecurityGroup = a})
cisgrsResponseStatus :: Lens' CreateInputSecurityGroupResponse Int
cisgrsResponseStatus = lens _cisgrsResponseStatus (\ s a -> s{_cisgrsResponseStatus = a})
instance NFData CreateInputSecurityGroupResponse
where