{-# 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.Greengrass.CreateGroupCertificateAuthority
(
createGroupCertificateAuthority
, CreateGroupCertificateAuthority
, cgcaAmznClientToken
, cgcaGroupId
, createGroupCertificateAuthorityResponse
, CreateGroupCertificateAuthorityResponse
, cgcarsGroupCertificateAuthorityARN
, cgcarsResponseStatus
) where
import Network.AWS.Greengrass.Types
import Network.AWS.Greengrass.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateGroupCertificateAuthority = CreateGroupCertificateAuthority'
{ _cgcaAmznClientToken :: !(Maybe Text)
, _cgcaGroupId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createGroupCertificateAuthority
:: Text
-> CreateGroupCertificateAuthority
createGroupCertificateAuthority pGroupId_ =
CreateGroupCertificateAuthority'
{_cgcaAmznClientToken = Nothing, _cgcaGroupId = pGroupId_}
cgcaAmznClientToken :: Lens' CreateGroupCertificateAuthority (Maybe Text)
cgcaAmznClientToken = lens _cgcaAmznClientToken (\ s a -> s{_cgcaAmznClientToken = a})
cgcaGroupId :: Lens' CreateGroupCertificateAuthority Text
cgcaGroupId = lens _cgcaGroupId (\ s a -> s{_cgcaGroupId = a})
instance AWSRequest CreateGroupCertificateAuthority
where
type Rs CreateGroupCertificateAuthority =
CreateGroupCertificateAuthorityResponse
request = postJSON greengrass
response
= receiveJSON
(\ s h x ->
CreateGroupCertificateAuthorityResponse' <$>
(x .?> "GroupCertificateAuthorityArn") <*>
(pure (fromEnum s)))
instance Hashable CreateGroupCertificateAuthority
where
instance NFData CreateGroupCertificateAuthority where
instance ToHeaders CreateGroupCertificateAuthority
where
toHeaders CreateGroupCertificateAuthority'{..}
= mconcat
["X-Amzn-Client-Token" =# _cgcaAmznClientToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToJSON CreateGroupCertificateAuthority where
toJSON = const (Object mempty)
instance ToPath CreateGroupCertificateAuthority where
toPath CreateGroupCertificateAuthority'{..}
= mconcat
["/greengrass/groups/", toBS _cgcaGroupId,
"/certificateauthorities"]
instance ToQuery CreateGroupCertificateAuthority
where
toQuery = const mempty
data CreateGroupCertificateAuthorityResponse = CreateGroupCertificateAuthorityResponse'
{ _cgcarsGroupCertificateAuthorityARN :: !(Maybe Text)
, _cgcarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createGroupCertificateAuthorityResponse
:: Int
-> CreateGroupCertificateAuthorityResponse
createGroupCertificateAuthorityResponse pResponseStatus_ =
CreateGroupCertificateAuthorityResponse'
{ _cgcarsGroupCertificateAuthorityARN = Nothing
, _cgcarsResponseStatus = pResponseStatus_
}
cgcarsGroupCertificateAuthorityARN :: Lens' CreateGroupCertificateAuthorityResponse (Maybe Text)
cgcarsGroupCertificateAuthorityARN = lens _cgcarsGroupCertificateAuthorityARN (\ s a -> s{_cgcarsGroupCertificateAuthorityARN = a})
cgcarsResponseStatus :: Lens' CreateGroupCertificateAuthorityResponse Int
cgcarsResponseStatus = lens _cgcarsResponseStatus (\ s a -> s{_cgcarsResponseStatus = a})
instance NFData
CreateGroupCertificateAuthorityResponse
where