{-# 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.FirebaseDynamicLinks.ShortLinks.Create
(
ShortLinksCreateResource
, shortLinksCreate
, ShortLinksCreate
, slcXgafv
, slcUploadProtocol
, slcPp
, slcAccessToken
, slcUploadType
, slcPayload
, slcBearerToken
, slcCallback
) where
import Network.Google.FirebaseDynamicLinks.Types
import Network.Google.Prelude
type ShortLinksCreateResource =
"v1" :>
"shortLinks" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] CreateShortDynamicLinkRequest :>
Post '[JSON] CreateShortDynamicLinkResponse
-- | Creates a short Dynamic Link given either a valid long Dynamic Link or
-- details such as Dynamic Link domain, Android and iOS app information.
-- The created short Dynamic Link will not expire. Repeated calls with the
-- same long Dynamic Link or Dynamic Link information will produce the same
-- short Dynamic Link. The Dynamic Link domain in the request must be owned
-- by requester\'s Firebase project.
--
-- /See:/ 'shortLinksCreate' smart constructor.
data ShortLinksCreate = ShortLinksCreate'
{ _slcXgafv :: !(Maybe Xgafv)
, _slcUploadProtocol :: !(Maybe Text)
, _slcPp :: !Bool
, _slcAccessToken :: !(Maybe Text)
, _slcUploadType :: !(Maybe Text)
, _slcPayload :: !CreateShortDynamicLinkRequest
, _slcBearerToken :: !(Maybe Text)
, _slcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'ShortLinksCreate' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'slcXgafv'
--
-- * 'slcUploadProtocol'
--
-- * 'slcPp'
--
-- * 'slcAccessToken'
--
-- * 'slcUploadType'
--
-- * 'slcPayload'
--
-- * 'slcBearerToken'
--
-- * 'slcCallback'
shortLinksCreate
:: CreateShortDynamicLinkRequest -- ^ 'slcPayload'
-> ShortLinksCreate
shortLinksCreate pSlcPayload_ =
ShortLinksCreate'
{ _slcXgafv = Nothing
, _slcUploadProtocol = Nothing
, _slcPp = True
, _slcAccessToken = Nothing
, _slcUploadType = Nothing
, _slcPayload = pSlcPayload_
, _slcBearerToken = Nothing
, _slcCallback = Nothing
}
-- | V1 error format.
slcXgafv :: Lens' ShortLinksCreate (Maybe Xgafv)
slcXgafv = lens _slcXgafv (\ s a -> s{_slcXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
slcUploadProtocol :: Lens' ShortLinksCreate (Maybe Text)
slcUploadProtocol
= lens _slcUploadProtocol
(\ s a -> s{_slcUploadProtocol = a})
-- | Pretty-print response.
slcPp :: Lens' ShortLinksCreate Bool
slcPp = lens _slcPp (\ s a -> s{_slcPp = a})
-- | OAuth access token.
slcAccessToken :: Lens' ShortLinksCreate (Maybe Text)
slcAccessToken
= lens _slcAccessToken
(\ s a -> s{_slcAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
slcUploadType :: Lens' ShortLinksCreate (Maybe Text)
slcUploadType
= lens _slcUploadType
(\ s a -> s{_slcUploadType = a})
-- | Multipart request metadata.
slcPayload :: Lens' ShortLinksCreate CreateShortDynamicLinkRequest
slcPayload
= lens _slcPayload (\ s a -> s{_slcPayload = a})
-- | OAuth bearer token.
slcBearerToken :: Lens' ShortLinksCreate (Maybe Text)
slcBearerToken
= lens _slcBearerToken
(\ s a -> s{_slcBearerToken = a})
-- | JSONP
slcCallback :: Lens' ShortLinksCreate (Maybe Text)
slcCallback
= lens _slcCallback (\ s a -> s{_slcCallback = a})
instance GoogleRequest ShortLinksCreate where
type Rs ShortLinksCreate =
CreateShortDynamicLinkResponse
type Scopes ShortLinksCreate =
'["https://www.googleapis.com/auth/firebase"]
requestClient ShortLinksCreate'{..}
= go _slcXgafv _slcUploadProtocol (Just _slcPp)
_slcAccessToken
_slcUploadType
_slcBearerToken
_slcCallback
(Just AltJSON)
_slcPayload
firebaseDynamicLinksService
where go
= buildClient
(Proxy :: Proxy ShortLinksCreateResource)
mempty