AdminGetDevice.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.CognitoIdentityProvider.AdminGetDevice
-- Copyright   : (c) 2013-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Gets the device, as an administrator.
--
--
module Network.AWS.CognitoIdentityProvider.AdminGetDevice
    (
    -- * Creating a Request
      adminGetDevice
    , AdminGetDevice
    -- * Request Lenses
    , agdDeviceKey
    , agdUserPoolId
    , agdUsername

    -- * Destructuring the Response
    , adminGetDeviceResponse
    , AdminGetDeviceResponse
    -- * Response Lenses
    , agdrsResponseStatus
    , agdrsDevice
    ) where

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

-- | Represents the request to get the device, as an administrator.
--
--
--
-- /See:/ 'adminGetDevice' smart constructor.
data AdminGetDevice = AdminGetDevice'
    { _agdDeviceKey  :: !Text
    , _agdUserPoolId :: !Text
    , _agdUsername   :: !(Sensitive Text)
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'AdminGetDevice' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'agdDeviceKey' - The device key.
--
-- * 'agdUserPoolId' - The user pool ID.
--
-- * 'agdUsername' - The user name.
adminGetDevice
    :: Text -- ^ 'agdDeviceKey'
    -> Text -- ^ 'agdUserPoolId'
    -> Text -- ^ 'agdUsername'
    -> AdminGetDevice
adminGetDevice pDeviceKey_ pUserPoolId_ pUsername_ =
    AdminGetDevice'
    { _agdDeviceKey = pDeviceKey_
    , _agdUserPoolId = pUserPoolId_
    , _agdUsername = _Sensitive # pUsername_
    }

-- | The device key.
agdDeviceKey :: Lens' AdminGetDevice Text
agdDeviceKey = lens _agdDeviceKey (\ s a -> s{_agdDeviceKey = a});

-- | The user pool ID.
agdUserPoolId :: Lens' AdminGetDevice Text
agdUserPoolId = lens _agdUserPoolId (\ s a -> s{_agdUserPoolId = a});

-- | The user name.
agdUsername :: Lens' AdminGetDevice Text
agdUsername = lens _agdUsername (\ s a -> s{_agdUsername = a}) . _Sensitive;

instance AWSRequest AdminGetDevice where
        type Rs AdminGetDevice = AdminGetDeviceResponse
        request = postJSON cognitoIdentityProvider
        response
          = receiveJSON
              (\ s h x ->
                 AdminGetDeviceResponse' <$>
                   (pure (fromEnum s)) <*> (x .:> "Device"))

instance Hashable AdminGetDevice

instance NFData AdminGetDevice

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

instance ToJSON AdminGetDevice where
        toJSON AdminGetDevice'{..}
          = object
              (catMaybes
                 [Just ("DeviceKey" .= _agdDeviceKey),
                  Just ("UserPoolId" .= _agdUserPoolId),
                  Just ("Username" .= _agdUsername)])

instance ToPath AdminGetDevice where
        toPath = const "/"

instance ToQuery AdminGetDevice where
        toQuery = const mempty

-- | Gets the device response, as an administrator.
--
--
--
-- /See:/ 'adminGetDeviceResponse' smart constructor.
data AdminGetDeviceResponse = AdminGetDeviceResponse'
    { _agdrsResponseStatus :: !Int
    , _agdrsDevice         :: !DeviceType
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'AdminGetDeviceResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'agdrsResponseStatus' - -- | The response status code.
--
-- * 'agdrsDevice' - The device.
adminGetDeviceResponse
    :: Int -- ^ 'agdrsResponseStatus'
    -> DeviceType -- ^ 'agdrsDevice'
    -> AdminGetDeviceResponse
adminGetDeviceResponse pResponseStatus_ pDevice_ =
    AdminGetDeviceResponse'
    { _agdrsResponseStatus = pResponseStatus_
    , _agdrsDevice = pDevice_
    }

-- | -- | The response status code.
agdrsResponseStatus :: Lens' AdminGetDeviceResponse Int
agdrsResponseStatus = lens _agdrsResponseStatus (\ s a -> s{_agdrsResponseStatus = a});

-- | The device.
agdrsDevice :: Lens' AdminGetDeviceResponse DeviceType
agdrsDevice = lens _agdrsDevice (\ s a -> s{_agdrsDevice = a});

instance NFData AdminGetDeviceResponse