CreateDeviceDefinition.hs

{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.Greengrass.CreateDeviceDefinition
-- Copyright   : (c) 2013-2017 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a device definition. You may optinally provide the initial version of the device definition or use ``CreateDeviceDefinitionVersion`` at a later time.
module Network.AWS.Greengrass.CreateDeviceDefinition
    (
    -- * Creating a Request
      createDeviceDefinition
    , CreateDeviceDefinition
    -- * Request Lenses
    , cddAmznClientToken
    , cddInitialVersion
    , cddName

    -- * Destructuring the Response
    , createDeviceDefinitionResponse
    , CreateDeviceDefinitionResponse
    -- * Response Lenses
    , 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

-- | /See:/ 'createDeviceDefinition' smart constructor.
data CreateDeviceDefinition = CreateDeviceDefinition'
  { _cddAmznClientToken :: !(Maybe Text)
  , _cddInitialVersion  :: !(Maybe DeviceDefinitionVersion)
  , _cddName            :: !(Maybe Text)
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'CreateDeviceDefinition' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cddAmznClientToken' - The client token used to request idempotent operations.
--
-- * 'cddInitialVersion' - Information on the initial version
--
-- * 'cddName' - name of the device definition
createDeviceDefinition
    :: CreateDeviceDefinition
createDeviceDefinition =
  CreateDeviceDefinition'
  { _cddAmznClientToken = Nothing
  , _cddInitialVersion = Nothing
  , _cddName = Nothing
  }


-- | The client token used to request idempotent operations.
cddAmznClientToken :: Lens' CreateDeviceDefinition (Maybe Text)
cddAmznClientToken = lens _cddAmznClientToken (\ s a -> s{_cddAmznClientToken = a});

-- | Information on the initial version
cddInitialVersion :: Lens' CreateDeviceDefinition (Maybe DeviceDefinitionVersion)
cddInitialVersion = lens _cddInitialVersion (\ s a -> s{_cddInitialVersion = a});

-- | name of the device definition
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

-- | /See:/ 'createDeviceDefinitionResponse' smart constructor.
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)


-- | Creates a value of 'CreateDeviceDefinitionResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cddrsLatestVersionARN' - Latest version arn of the definition.
--
-- * 'cddrsARN' - Arn of the definition.
--
-- * 'cddrsName' - Name of the definition.
--
-- * 'cddrsCreationTimestamp' - Timestamp of when the definition was created.
--
-- * 'cddrsId' - Id of the definition.
--
-- * 'cddrsLatestVersion' - Last version of the definition.
--
-- * 'cddrsLastUpdatedTimestamp' - Last updated timestamp of the definition.
--
-- * 'cddrsResponseStatus' - -- | The response status code.
createDeviceDefinitionResponse
    :: Int -- ^ 'cddrsResponseStatus'
    -> CreateDeviceDefinitionResponse
createDeviceDefinitionResponse pResponseStatus_ =
  CreateDeviceDefinitionResponse'
  { _cddrsLatestVersionARN = Nothing
  , _cddrsARN = Nothing
  , _cddrsName = Nothing
  , _cddrsCreationTimestamp = Nothing
  , _cddrsId = Nothing
  , _cddrsLatestVersion = Nothing
  , _cddrsLastUpdatedTimestamp = Nothing
  , _cddrsResponseStatus = pResponseStatus_
  }


-- | Latest version arn of the definition.
cddrsLatestVersionARN :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsLatestVersionARN = lens _cddrsLatestVersionARN (\ s a -> s{_cddrsLatestVersionARN = a});

-- | Arn of the definition.
cddrsARN :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsARN = lens _cddrsARN (\ s a -> s{_cddrsARN = a});

-- | Name of the definition.
cddrsName :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsName = lens _cddrsName (\ s a -> s{_cddrsName = a});

-- | Timestamp of when the definition was created.
cddrsCreationTimestamp :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsCreationTimestamp = lens _cddrsCreationTimestamp (\ s a -> s{_cddrsCreationTimestamp = a});

-- | Id of the definition.
cddrsId :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsId = lens _cddrsId (\ s a -> s{_cddrsId = a});

-- | Last version of the definition.
cddrsLatestVersion :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsLatestVersion = lens _cddrsLatestVersion (\ s a -> s{_cddrsLatestVersion = a});

-- | Last updated timestamp of the definition.
cddrsLastUpdatedTimestamp :: Lens' CreateDeviceDefinitionResponse (Maybe Text)
cddrsLastUpdatedTimestamp = lens _cddrsLastUpdatedTimestamp (\ s a -> s{_cddrsLastUpdatedTimestamp = a});

-- | -- | The response status code.
cddrsResponseStatus :: Lens' CreateDeviceDefinitionResponse Int
cddrsResponseStatus = lens _cddrsResponseStatus (\ s a -> s{_cddrsResponseStatus = a});

instance NFData CreateDeviceDefinitionResponse where