{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeOperators #-} {-# OPTIONS_GHC -fno-warn-duplicate-exports #-} {-# OPTIONS_GHC -fno-warn-unused-binds #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- | -- Module : Network.Google.Resource.AndroidDeviceProvisioning.Partners.Devices.FindByIdentifier -- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Finds devices by hardware identifiers, such as IMEI. -- -- /See:/ for @androiddeviceprovisioning.partners.devices.findByIdentifier@. module Network.Google.Resource.AndroidDeviceProvisioning.Partners.Devices.FindByIdentifier ( -- * REST Resource PartnersDevicesFindByIdentifierResource -- * Creating a Request , partnersDevicesFindByIdentifier , PartnersDevicesFindByIdentifier -- * Request Lenses , pdfbiXgafv , pdfbiUploadProtocol , pdfbiAccessToken , pdfbiPartnerId , pdfbiUploadType , pdfbiPayload , pdfbiCallback ) where import Network.Google.AndroidDeviceProvisioning.Types import Network.Google.Prelude -- | A resource alias for @androiddeviceprovisioning.partners.devices.findByIdentifier@ method which the -- 'PartnersDevicesFindByIdentifier' request conforms to. type PartnersDevicesFindByIdentifierResource = "v1" :> "partners" :> Capture "partnerId" (Textual Int64) :> "devices:findByIdentifier" :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "access_token" Text :> QueryParam "uploadType" Text :> QueryParam "callback" Text :> QueryParam "alt" AltJSON :> ReqBody '[JSON] FindDevicesByDeviceIdentifierRequest :> Post '[JSON] FindDevicesByDeviceIdentifierResponse -- | Finds devices by hardware identifiers, such as IMEI. -- -- /See:/ 'partnersDevicesFindByIdentifier' smart constructor. data PartnersDevicesFindByIdentifier = PartnersDevicesFindByIdentifier' { _pdfbiXgafv :: !(Maybe Xgafv) , _pdfbiUploadProtocol :: !(Maybe Text) , _pdfbiAccessToken :: !(Maybe Text) , _pdfbiPartnerId :: !(Textual Int64) , _pdfbiUploadType :: !(Maybe Text) , _pdfbiPayload :: !FindDevicesByDeviceIdentifierRequest , _pdfbiCallback :: !(Maybe Text) } deriving (Eq, Show, Data, Typeable, Generic) -- | Creates a value of 'PartnersDevicesFindByIdentifier' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'pdfbiXgafv' -- -- * 'pdfbiUploadProtocol' -- -- * 'pdfbiAccessToken' -- -- * 'pdfbiPartnerId' -- -- * 'pdfbiUploadType' -- -- * 'pdfbiPayload' -- -- * 'pdfbiCallback' partnersDevicesFindByIdentifier :: Int64 -- ^ 'pdfbiPartnerId' -> FindDevicesByDeviceIdentifierRequest -- ^ 'pdfbiPayload' -> PartnersDevicesFindByIdentifier partnersDevicesFindByIdentifier pPdfbiPartnerId_ pPdfbiPayload_ = PartnersDevicesFindByIdentifier' { _pdfbiXgafv = Nothing , _pdfbiUploadProtocol = Nothing , _pdfbiAccessToken = Nothing , _pdfbiPartnerId = _Coerce # pPdfbiPartnerId_ , _pdfbiUploadType = Nothing , _pdfbiPayload = pPdfbiPayload_ , _pdfbiCallback = Nothing } -- | V1 error format. pdfbiXgafv :: Lens' PartnersDevicesFindByIdentifier (Maybe Xgafv) pdfbiXgafv = lens _pdfbiXgafv (\ s a -> s{_pdfbiXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). pdfbiUploadProtocol :: Lens' PartnersDevicesFindByIdentifier (Maybe Text) pdfbiUploadProtocol = lens _pdfbiUploadProtocol (\ s a -> s{_pdfbiUploadProtocol = a}) -- | OAuth access token. pdfbiAccessToken :: Lens' PartnersDevicesFindByIdentifier (Maybe Text) pdfbiAccessToken = lens _pdfbiAccessToken (\ s a -> s{_pdfbiAccessToken = a}) -- | Required. The ID of the reseller partner. pdfbiPartnerId :: Lens' PartnersDevicesFindByIdentifier Int64 pdfbiPartnerId = lens _pdfbiPartnerId (\ s a -> s{_pdfbiPartnerId = a}) . _Coerce -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). pdfbiUploadType :: Lens' PartnersDevicesFindByIdentifier (Maybe Text) pdfbiUploadType = lens _pdfbiUploadType (\ s a -> s{_pdfbiUploadType = a}) -- | Multipart request metadata. pdfbiPayload :: Lens' PartnersDevicesFindByIdentifier FindDevicesByDeviceIdentifierRequest pdfbiPayload = lens _pdfbiPayload (\ s a -> s{_pdfbiPayload = a}) -- | JSONP pdfbiCallback :: Lens' PartnersDevicesFindByIdentifier (Maybe Text) pdfbiCallback = lens _pdfbiCallback (\ s a -> s{_pdfbiCallback = a}) instance GoogleRequest PartnersDevicesFindByIdentifier where type Rs PartnersDevicesFindByIdentifier = FindDevicesByDeviceIdentifierResponse type Scopes PartnersDevicesFindByIdentifier = '[] requestClient PartnersDevicesFindByIdentifier'{..} = go _pdfbiPartnerId _pdfbiXgafv _pdfbiUploadProtocol _pdfbiAccessToken _pdfbiUploadType _pdfbiCallback (Just AltJSON) _pdfbiPayload androidDeviceProvisioningService where go = buildClient (Proxy :: Proxy PartnersDevicesFindByIdentifierResource) mempty