module Network.AWS.Greengrass.CreateDeviceDefinition
(
createDeviceDefinition
, CreateDeviceDefinition
, cddAmznClientToken
, cddInitialVersion
, cddName
, createDeviceDefinitionResponse
, CreateDeviceDefinitionResponse
, cddrsLatestVersionARN
, cddrsARN
, cddrsName
, cddrsCreationTimestamp
, cddrsId
, cddrsLatestVersion
, cddrsLastUpdatedTimestamp
, cddrsResponseStatus
) 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 CreateDeviceDefinition = CreateDeviceDefinition'
{ _cddAmznClientToken :: !(Maybe Text)
, _cddInitialVersion :: !(Maybe DeviceDefinitionVersion)
, _cddName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDeviceDefinition
:: CreateDeviceDefinition
createDeviceDefinition =
CreateDeviceDefinition'
{ _cddAmznClientToken = Nothing
, _cddInitialVersion = Nothing
, _cddName = Nothing
}
cddAmznClientToken :: Lens' CreateDeviceDefinition (Maybe Text)
cddAmznClientToken = lens _cddAmznClientToken (\ s a -> s{_cddAmznClientToken = a});
cddInitialVersion :: Lens' CreateDeviceDefinition (Maybe DeviceDefinitionVersion)
cddInitialVersion = lens _cddInitialVersion (\ s a -> s{_cddInitialVersion = a});
cddName :: Lens' CreateDeviceDefinition (Maybe Text)
cddName = lens _cddName (\ s a -> s{_cddName = a});
instance AWSRequest CreateDeviceDefinition where
type Rs CreateDeviceDefinition =
CreateDeviceDefinitionResponse
request = postJSON greengrass
response
= receiveJSON
(\ s h x ->
CreateDeviceDefinitionResponse' <$>
(x .?> "LatestVersionArn") <*> (x .?> "Arn") <*>
(x .?> "Name")
<*> (x .?> "CreationTimestamp")
<*> (x .?> "Id")
<*> (x .?> "LatestVersion")
<*> (x .?> "LastUpdatedTimestamp")
<*> (pure (fromEnum s)))
instance Hashable CreateDeviceDefinition where
instance NFData CreateDeviceDefinition where
instance ToHeaders CreateDeviceDefinition where
toHeaders CreateDeviceDefinition'{..}
= mconcat
["X-Amzn-Client-Token" =# _cddAmznClientToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToJSON CreateDeviceDefinition where
toJSON CreateDeviceDefinition'{..}
= object
(catMaybes
[("InitialVersion" .=) <$> _cddInitialVersion,
("Name" .=) <$> _cddName])
instance ToPath CreateDeviceDefinition where
toPath = const "/greengrass/definition/devices"
instance ToQuery CreateDeviceDefinition where
toQuery = const mempty
data CreateDeviceDefinitionResponse = CreateDeviceDefinitionResponse'
{ _cddrsLatestVersionARN :: !(Maybe Text)
, _cddrsARN :: !(Maybe Text)
, _cddrsName :: !(Maybe Text)
, _cddrsCreationTimestamp :: !(Maybe Text)
, _cddrsId :: !(Maybe Text)
, _cddrsLatestVersion :: !(Maybe Text)
, _cddrsLastUpdatedTimestamp :: !(Maybe Text)
, _cddrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDeviceDefinitionResponse
:: Int
-> CreateDeviceDefinitionResponse
createDeviceDefinitionResponse pResponseStatus_ =
CreateDeviceDefinitionResponse'
{ _cddrsLatestVersionARN = Nothing
, _cddrsARN = Nothing
, _cddrsName = Nothing
, _cddrsCreationTimestamp = Nothing
, _cddrsId = Nothing
, _cddrsLatestVersion = Nothing
, _cddrsLastUpdatedTimestamp = Nothing
, _cddrsResponseStatus = pResponseStatus_
}
cddrsLatestVersionARN :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsLatestVersionARN = lens _cddrsLatestVersionARN (\ s a -> s{_cddrsLatestVersionARN = a});
cddrsARN :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsARN = lens _cddrsARN (\ s a -> s{_cddrsARN = a});
cddrsName :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsName = lens _cddrsName (\ s a -> s{_cddrsName = a});
cddrsCreationTimestamp :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsCreationTimestamp = lens _cddrsCreationTimestamp (\ s a -> s{_cddrsCreationTimestamp = a});
cddrsId :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsId = lens _cddrsId (\ s a -> s{_cddrsId = a});
cddrsLatestVersion :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsLatestVersion = lens _cddrsLatestVersion (\ s a -> s{_cddrsLatestVersion = a});
cddrsLastUpdatedTimestamp :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsLastUpdatedTimestamp = lens _cddrsLastUpdatedTimestamp (\ s a -> s{_cddrsLastUpdatedTimestamp = a});
cddrsResponseStatus :: Lens' CreateDeviceDefinitionResponse Int
cddrsResponseStatus = lens _cddrsResponseStatus (\ s a -> s{_cddrsResponseStatus = a});
instance NFData CreateDeviceDefinitionResponse where