{-# 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.AlexaBusiness.CreateSkillGroup
(
createSkillGroup
, CreateSkillGroup
, csgClientRequestToken
, csgDescription
, csgSkillGroupName
, createSkillGroupResponse
, CreateSkillGroupResponse
, csgrsSkillGroupARN
, csgrsResponseStatus
) where
import Network.AWS.AlexaBusiness.Types
import Network.AWS.AlexaBusiness.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateSkillGroup = CreateSkillGroup'
{ _csgClientRequestToken :: !(Maybe Text)
, _csgDescription :: !(Maybe Text)
, _csgSkillGroupName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createSkillGroup
:: Text
-> CreateSkillGroup
createSkillGroup pSkillGroupName_ =
CreateSkillGroup'
{ _csgClientRequestToken = Nothing
, _csgDescription = Nothing
, _csgSkillGroupName = pSkillGroupName_
}
csgClientRequestToken :: Lens' CreateSkillGroup (Maybe Text)
csgClientRequestToken = lens _csgClientRequestToken (\ s a -> s{_csgClientRequestToken = a})
csgDescription :: Lens' CreateSkillGroup (Maybe Text)
csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a})
csgSkillGroupName :: Lens' CreateSkillGroup Text
csgSkillGroupName = lens _csgSkillGroupName (\ s a -> s{_csgSkillGroupName = a})
instance AWSRequest CreateSkillGroup where
type Rs CreateSkillGroup = CreateSkillGroupResponse
request = postJSON alexaBusiness
response
= receiveJSON
(\ s h x ->
CreateSkillGroupResponse' <$>
(x .?> "SkillGroupArn") <*> (pure (fromEnum s)))
instance Hashable CreateSkillGroup where
instance NFData CreateSkillGroup where
instance ToHeaders CreateSkillGroup where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AlexaForBusiness.CreateSkillGroup" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateSkillGroup where
toJSON CreateSkillGroup'{..}
= object
(catMaybes
[("ClientRequestToken" .=) <$>
_csgClientRequestToken,
("Description" .=) <$> _csgDescription,
Just ("SkillGroupName" .= _csgSkillGroupName)])
instance ToPath CreateSkillGroup where
toPath = const "/"
instance ToQuery CreateSkillGroup where
toQuery = const mempty
data CreateSkillGroupResponse = CreateSkillGroupResponse'
{ _csgrsSkillGroupARN :: !(Maybe Text)
, _csgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createSkillGroupResponse
:: Int
-> CreateSkillGroupResponse
createSkillGroupResponse pResponseStatus_ =
CreateSkillGroupResponse'
{_csgrsSkillGroupARN = Nothing, _csgrsResponseStatus = pResponseStatus_}
csgrsSkillGroupARN :: Lens' CreateSkillGroupResponse (Maybe Text)
csgrsSkillGroupARN = lens _csgrsSkillGroupARN (\ s a -> s{_csgrsSkillGroupARN = a})
csgrsResponseStatus :: Lens' CreateSkillGroupResponse Int
csgrsResponseStatus = lens _csgrsResponseStatus (\ s a -> s{_csgrsResponseStatus = a})
instance NFData CreateSkillGroupResponse where