{-# 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.CreateSubscriptionDefinitionVersion
(
createSubscriptionDefinitionVersion
, CreateSubscriptionDefinitionVersion
, csdvAmznClientToken
, csdvSubscriptions
, csdvSubscriptionDefinitionId
, createSubscriptionDefinitionVersionResponse
, CreateSubscriptionDefinitionVersionResponse
, csdvrsARN
, csdvrsCreationTimestamp
, csdvrsVersion
, csdvrsId
, csdvrsResponseStatus
) 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 CreateSubscriptionDefinitionVersion = CreateSubscriptionDefinitionVersion'
{ _csdvAmznClientToken :: !(Maybe Text)
, _csdvSubscriptions :: !(Maybe [Subscription])
, _csdvSubscriptionDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createSubscriptionDefinitionVersion
:: Text
-> CreateSubscriptionDefinitionVersion
createSubscriptionDefinitionVersion pSubscriptionDefinitionId_ =
CreateSubscriptionDefinitionVersion'
{ _csdvAmznClientToken = Nothing
, _csdvSubscriptions = Nothing
, _csdvSubscriptionDefinitionId = pSubscriptionDefinitionId_
}
csdvAmznClientToken :: Lens' CreateSubscriptionDefinitionVersion (Maybe Text)
csdvAmznClientToken = lens _csdvAmznClientToken (\ s a -> s{_csdvAmznClientToken = a})
csdvSubscriptions :: Lens' CreateSubscriptionDefinitionVersion [Subscription]
csdvSubscriptions = lens _csdvSubscriptions (\ s a -> s{_csdvSubscriptions = a}) . _Default . _Coerce
csdvSubscriptionDefinitionId :: Lens' CreateSubscriptionDefinitionVersion Text
csdvSubscriptionDefinitionId = lens _csdvSubscriptionDefinitionId (\ s a -> s{_csdvSubscriptionDefinitionId = a})
instance AWSRequest
CreateSubscriptionDefinitionVersion
where
type Rs CreateSubscriptionDefinitionVersion =
CreateSubscriptionDefinitionVersionResponse
request = postJSON greengrass
response
= receiveJSON
(\ s h x ->
CreateSubscriptionDefinitionVersionResponse' <$>
(x .?> "Arn") <*> (x .?> "CreationTimestamp") <*>
(x .?> "Version")
<*> (x .?> "Id")
<*> (pure (fromEnum s)))
instance Hashable CreateSubscriptionDefinitionVersion
where
instance NFData CreateSubscriptionDefinitionVersion
where
instance ToHeaders
CreateSubscriptionDefinitionVersion
where
toHeaders CreateSubscriptionDefinitionVersion'{..}
= mconcat
["X-Amzn-Client-Token" =# _csdvAmznClientToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToJSON CreateSubscriptionDefinitionVersion
where
toJSON CreateSubscriptionDefinitionVersion'{..}
= object
(catMaybes
[("Subscriptions" .=) <$> _csdvSubscriptions])
instance ToPath CreateSubscriptionDefinitionVersion
where
toPath CreateSubscriptionDefinitionVersion'{..}
= mconcat
["/greengrass/definition/subscriptions/",
toBS _csdvSubscriptionDefinitionId, "/versions"]
instance ToQuery CreateSubscriptionDefinitionVersion
where
toQuery = const mempty
data CreateSubscriptionDefinitionVersionResponse = CreateSubscriptionDefinitionVersionResponse'
{ _csdvrsARN :: !(Maybe Text)
, _csdvrsCreationTimestamp :: !(Maybe Text)
, _csdvrsVersion :: !(Maybe Text)
, _csdvrsId :: !(Maybe Text)
, _csdvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createSubscriptionDefinitionVersionResponse
:: Int
-> CreateSubscriptionDefinitionVersionResponse
createSubscriptionDefinitionVersionResponse pResponseStatus_ =
CreateSubscriptionDefinitionVersionResponse'
{ _csdvrsARN = Nothing
, _csdvrsCreationTimestamp = Nothing
, _csdvrsVersion = Nothing
, _csdvrsId = Nothing
, _csdvrsResponseStatus = pResponseStatus_
}
csdvrsARN :: Lens' CreateSubscriptionDefinitionVersionResponse (Maybe Text)
csdvrsARN = lens _csdvrsARN (\ s a -> s{_csdvrsARN = a})
csdvrsCreationTimestamp :: Lens' CreateSubscriptionDefinitionVersionResponse (Maybe Text)
csdvrsCreationTimestamp = lens _csdvrsCreationTimestamp (\ s a -> s{_csdvrsCreationTimestamp = a})
csdvrsVersion :: Lens' CreateSubscriptionDefinitionVersionResponse (Maybe Text)
csdvrsVersion = lens _csdvrsVersion (\ s a -> s{_csdvrsVersion = a})
csdvrsId :: Lens' CreateSubscriptionDefinitionVersionResponse (Maybe Text)
csdvrsId = lens _csdvrsId (\ s a -> s{_csdvrsId = a})
csdvrsResponseStatus :: Lens' CreateSubscriptionDefinitionVersionResponse Int
csdvrsResponseStatus = lens _csdvrsResponseStatus (\ s a -> s{_csdvrsResponseStatus = a})
instance NFData
CreateSubscriptionDefinitionVersionResponse
where