UpdateDeviceInstance.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.DeviceFarm.UpdateDeviceInstance
-- Copyright   : (c) 2013-2018 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)
--
-- Updates information about an existing private device instance.
--
--
module Network.AWS.DeviceFarm.UpdateDeviceInstance
    (
    -- * Creating a Request
      updateDeviceInstance
    , UpdateDeviceInstance
    -- * Request Lenses
    , udiProfileARN
    , udiLabels
    , udiArn

    -- * Destructuring the Response
    , updateDeviceInstanceResponse
    , UpdateDeviceInstanceResponse
    -- * Response Lenses
    , udirsDeviceInstance
    , udirsResponseStatus
    ) where

import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | /See:/ 'updateDeviceInstance' smart constructor.
data UpdateDeviceInstance = UpdateDeviceInstance'
  { _udiProfileARN :: !(Maybe Text)
  , _udiLabels     :: !(Maybe [Text])
  , _udiArn        :: !Text
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'UpdateDeviceInstance' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'udiProfileARN' - The Amazon Resource Name (ARN) of the profile that you want to associate with the device instance.
--
-- * 'udiLabels' - An array of strings that you want to associate with the device instance.
--
-- * 'udiArn' - The Amazon Resource Name (ARN) of the device instance.
updateDeviceInstance
    :: Text -- ^ 'udiArn'
    -> UpdateDeviceInstance
updateDeviceInstance pArn_ =
  UpdateDeviceInstance'
    {_udiProfileARN = Nothing, _udiLabels = Nothing, _udiArn = pArn_}


-- | The Amazon Resource Name (ARN) of the profile that you want to associate with the device instance.
udiProfileARN :: Lens' UpdateDeviceInstance (Maybe Text)
udiProfileARN = lens _udiProfileARN (\ s a -> s{_udiProfileARN = a})

-- | An array of strings that you want to associate with the device instance.
udiLabels :: Lens' UpdateDeviceInstance [Text]
udiLabels = lens _udiLabels (\ s a -> s{_udiLabels = a}) . _Default . _Coerce

-- | The Amazon Resource Name (ARN) of the device instance.
udiArn :: Lens' UpdateDeviceInstance Text
udiArn = lens _udiArn (\ s a -> s{_udiArn = a})

instance AWSRequest UpdateDeviceInstance where
        type Rs UpdateDeviceInstance =
             UpdateDeviceInstanceResponse
        request = postJSON deviceFarm
        response
          = receiveJSON
              (\ s h x ->
                 UpdateDeviceInstanceResponse' <$>
                   (x .?> "deviceInstance") <*> (pure (fromEnum s)))

instance Hashable UpdateDeviceInstance where

instance NFData UpdateDeviceInstance where

instance ToHeaders UpdateDeviceInstance where
        toHeaders
          = const
              (mconcat
                 ["X-Amz-Target" =#
                    ("DeviceFarm_20150623.UpdateDeviceInstance" ::
                       ByteString),
                  "Content-Type" =#
                    ("application/x-amz-json-1.1" :: ByteString)])

instance ToJSON UpdateDeviceInstance where
        toJSON UpdateDeviceInstance'{..}
          = object
              (catMaybes
                 [("profileArn" .=) <$> _udiProfileARN,
                  ("labels" .=) <$> _udiLabels,
                  Just ("arn" .= _udiArn)])

instance ToPath UpdateDeviceInstance where
        toPath = const "/"

instance ToQuery UpdateDeviceInstance where
        toQuery = const mempty

-- | /See:/ 'updateDeviceInstanceResponse' smart constructor.
data UpdateDeviceInstanceResponse = UpdateDeviceInstanceResponse'
  { _udirsDeviceInstance :: !(Maybe DeviceInstance)
  , _udirsResponseStatus :: !Int
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'UpdateDeviceInstanceResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'udirsDeviceInstance' - An object containing information about your device instance.
--
-- * 'udirsResponseStatus' - -- | The response status code.
updateDeviceInstanceResponse
    :: Int -- ^ 'udirsResponseStatus'
    -> UpdateDeviceInstanceResponse
updateDeviceInstanceResponse pResponseStatus_ =
  UpdateDeviceInstanceResponse'
    {_udirsDeviceInstance = Nothing, _udirsResponseStatus = pResponseStatus_}


-- | An object containing information about your device instance.
udirsDeviceInstance :: Lens' UpdateDeviceInstanceResponse (Maybe DeviceInstance)
udirsDeviceInstance = lens _udirsDeviceInstance (\ s a -> s{_udirsDeviceInstance = a})

-- | -- | The response status code.
udirsResponseStatus :: Lens' UpdateDeviceInstanceResponse Int
udirsResponseStatus = lens _udirsResponseStatus (\ s a -> s{_udirsResponseStatus = a})

instance NFData UpdateDeviceInstanceResponse where