gogol-firebase-dynamiclinks 0.3.0 → 0.4.0

raw patch · 10 files changed

+3189/−811 lines, 10 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• gen/Network/Google/FirebaseDynamicLinks.hs +157/−3
• gen/Network/Google/FirebaseDynamicLinks/Types.hs +135/−0
• gen/Network/Google/FirebaseDynamicLinks/Types/Product.hs +1946/−771
• gen/Network/Google/FirebaseDynamicLinks/Types/Sum.hs +299/−2
• gen/Network/Google/Resource/FirebaseDynamicLinks/GetLinkStats.hs +179/−0
• gen/Network/Google/Resource/FirebaseDynamicLinks/InstallAttribution.hs +147/−0
• gen/Network/Google/Resource/FirebaseDynamicLinks/ManagedShortLinks/Create.hs +165/−0
• gen/Network/Google/Resource/FirebaseDynamicLinks/ReopenAttribution.hs +147/−0
• gen/Network/Google/Resource/FirebaseDynamicLinks/ShortLinks/Create.hs +7/−31
• gogol-firebase-dynamiclinks.cabal +7/−4

@@ -13,8 +13,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Firebase Dynamic Links API enables third party developers to--- programmatically create and manage Dynamic Links.+-- Programmatically creates and manages Firebase Dynamic Links. -- -- /See:/ <https://firebase.google.com/docs/dynamic-links/ Firebase Dynamic Links API Reference> module Network.Google.FirebaseDynamicLinks@@ -30,28 +29,66 @@      -- * Resources +    -- ** firebasedynamiclinks.getLinkStats+    , module Network.Google.Resource.FirebaseDynamicLinks.GetLinkStats++    -- ** firebasedynamiclinks.installAttribution+    , module Network.Google.Resource.FirebaseDynamicLinks.InstallAttribution++    -- ** firebasedynamiclinks.managedShortLinks.create+    , module Network.Google.Resource.FirebaseDynamicLinks.ManagedShortLinks.Create++    -- ** firebasedynamiclinks.reopenAttribution+    , module Network.Google.Resource.FirebaseDynamicLinks.ReopenAttribution+     -- ** firebasedynamiclinks.shortLinks.create     , module Network.Google.Resource.FirebaseDynamicLinks.ShortLinks.Create      -- * Types +    -- ** NavigationInfo+    , NavigationInfo+    , navigationInfo+    , niEnableForcedRedirect++    -- ** DesktopInfo+    , DesktopInfo+    , desktopInfo+    , diDesktopFallbackLink++    -- ** DynamicLinkEventStatPlatform+    , DynamicLinkEventStatPlatform (..)+     -- ** Suffix     , Suffix     , suffix+    , sCustomSuffix     , sOption      -- ** DynamicLinkWarning     , DynamicLinkWarning     , dynamicLinkWarning     , dlwWarningCode+    , dlwWarningDocumentLink     , dlwWarningMessage +    -- ** ManagedShortLink+    , ManagedShortLink+    , managedShortLink+    , mslCreationTime+    , mslLink+    , mslVisibility+    , mslLinkName+    , mslFlaggedAttribute+    , mslInfo+     -- ** CreateShortDynamicLinkRequest     , CreateShortDynamicLinkRequest     , createShortDynamicLinkRequest     , csdlrLongDynamicLink     , csdlrSuffix     , csdlrDynamicLinkInfo+    , csdlrSdkVersion      -- ** SocialMetaTagInfo     , SocialMetaTagInfo@@ -67,12 +104,20 @@     , csdlrWarning     , csdlrShortLink +    -- ** DynamicLinkEventStat+    , DynamicLinkEventStat+    , dynamicLinkEventStat+    , dlesEvent+    , dlesPlatform+    , dlesCount+     -- ** IosInfo     , IosInfo     , iosInfo     , iiIosBundleId     , iiIosIPadBundleId     , iiIosAppStoreId+    , iiIosMinimumVersion     , iiIosIPadFallbackLink     , iiIosCustomScheme     , iiIosFallbackLink@@ -80,19 +125,71 @@     -- ** DynamicLinkInfo     , DynamicLinkInfo     , dynamicLinkInfo+    , dliNavigationInfo+    , dliDesktopInfo     , dliSocialMetaTagInfo     , dliDynamicLinkDomain     , dliLink     , dliIosInfo+    , dliDomainURIPrefix     , dliAndroidInfo     , dliAnalyticsInfo +    -- ** GetIosPostInstallAttributionRequestVisualStyle+    , GetIosPostInstallAttributionRequestVisualStyle (..)++    -- ** DynamicLinkStats+    , DynamicLinkStats+    , dynamicLinkStats+    , dlsLinkEventStats+     -- ** SuffixOption     , SuffixOption (..) +    -- ** DynamicLinkEventStatEvent+    , DynamicLinkEventStatEvent (..)++    -- ** CreateManagedShortLinkRequest+    , CreateManagedShortLinkRequest+    , createManagedShortLinkRequest+    , cmslrLongDynamicLink+    , cmslrSuffix+    , cmslrDynamicLinkInfo+    , cmslrSdkVersion+    , cmslrName++    -- ** GetIosReopenAttributionResponse+    , GetIosReopenAttributionResponse+    , getIosReopenAttributionResponse+    , girarIosMinAppVersion+    , girarDeepLink+    , girarResolvedLink+    , girarUtmMedium+    , girarInvitationId+    , girarUtmCampaign+    , girarUtmSource++    -- ** GetIosPostInstallAttributionResponseRequestIPVersion+    , GetIosPostInstallAttributionResponseRequestIPVersion (..)++    -- ** GetIosPostInstallAttributionRequest+    , GetIosPostInstallAttributionRequest+    , getIosPostInstallAttributionRequest+    , gipiarIosVersion+    , gipiarUniqueMatchLinkToCheck+    , gipiarAppInstallationTime+    , gipiarDevice+    , gipiarSdkVersion+    , gipiarBundleId+    , gipiarRetrievalMethod+    , gipiarVisualStyle+     -- ** Xgafv     , Xgafv (..) +    -- ** GetIosPostInstallAttributionResponseAttributionConfidence+    , GetIosPostInstallAttributionResponseAttributionConfidence (..)+     -- ** AndroidInfo     , AndroidInfo     , androidInfo@@ -118,6 +215,38 @@     , itcaPt     , itcaCt +    -- ** GetIosPostInstallAttributionResponse+    , GetIosPostInstallAttributionResponse+    , getIosPostInstallAttributionResponse+    , gipiarDeepLink+    , gipiarRequestIPVersion+    , gipiarAppMinimumVersion+    , gipiarAttributionConfidence+    , gipiarExternalBrowserDestinationLink+    , gipiarResolvedLink+    , gipiarRequestedLink+    , gipiarUtmMedium+    , gipiarFallbackLink+    , gipiarInvitationId+    , gipiarIsStrongMatchExecutable+    , gipiarUtmCampaign+    , gipiarMatchMessage+    , gipiarUtmSource++    -- ** CreateManagedShortLinkResponse+    , CreateManagedShortLinkResponse+    , createManagedShortLinkResponse+    , cmslrManagedShortLink+    , cmslrPreviewLink+    , cmslrWarning++    -- ** GetIosReopenAttributionRequest+    , GetIosReopenAttributionRequest+    , getIosReopenAttributionRequest+    , girarRequestedLink+    , girarSdkVersion+    , girarBundleId+     -- ** GooglePlayAnalytics     , GooglePlayAnalytics     , googlePlayAnalytics@@ -127,10 +256,31 @@     , gpaUtmCampaign     , gpaGclid     , gpaUtmSource++    -- ** GetIosPostInstallAttributionRequestRetrievalMethod+    , GetIosPostInstallAttributionRequestRetrievalMethod (..)++    -- ** DeviceInfo+    , DeviceInfo+    , deviceInfo+    , diLanguageCodeFromWebview+    , diScreenResolutionWidth+    , diLanguageCode+    , diDeviceModelName+    , diScreenResolutionHeight+    , diLanguageCodeRaw+    , diTimezone++    -- ** ManagedShortLinkVisibility+    , ManagedShortLinkVisibility (..)     ) where  import           Network.Google.FirebaseDynamicLinks.Types import           Network.Google.Prelude+import           Network.Google.Resource.FirebaseDynamicLinks.GetLinkStats+import           Network.Google.Resource.FirebaseDynamicLinks.InstallAttribution+import           Network.Google.Resource.FirebaseDynamicLinks.ManagedShortLinks.Create+import           Network.Google.Resource.FirebaseDynamicLinks.ReopenAttribution import           Network.Google.Resource.FirebaseDynamicLinks.ShortLinks.Create  {- $resources@@ -139,4 +289,8 @@  -- | Represents the entirety of the methods and resources available for the Firebase Dynamic Links API service. type FirebaseDynamicLinksAPI =-     ShortLinksCreateResource+     ManagedShortLinksCreateResource :<|>+       InstallAttributionResource+       :<|> GetLinkStatsResource+       :<|> ReopenAttributionResource+       :<|> ShortLinksCreateResource

@@ -22,23 +22,49 @@     -- * OAuth Scopes     , firebaseScope +    -- * NavigationInfo+    , NavigationInfo+    , navigationInfo+    , niEnableForcedRedirect++    -- * DesktopInfo+    , DesktopInfo+    , desktopInfo+    , diDesktopFallbackLink++    -- * DynamicLinkEventStatPlatform+    , DynamicLinkEventStatPlatform (..)+     -- * Suffix     , Suffix     , suffix+    , sCustomSuffix     , sOption      -- * DynamicLinkWarning     , DynamicLinkWarning     , dynamicLinkWarning     , dlwWarningCode+    , dlwWarningDocumentLink     , dlwWarningMessage +    -- * ManagedShortLink+    , ManagedShortLink+    , managedShortLink+    , mslCreationTime+    , mslLink+    , mslVisibility+    , mslLinkName+    , mslFlaggedAttribute+    , mslInfo+     -- * CreateShortDynamicLinkRequest     , CreateShortDynamicLinkRequest     , createShortDynamicLinkRequest     , csdlrLongDynamicLink     , csdlrSuffix     , csdlrDynamicLinkInfo+    , csdlrSdkVersion      -- * SocialMetaTagInfo     , SocialMetaTagInfo@@ -54,12 +80,20 @@     , csdlrWarning     , csdlrShortLink +    -- * DynamicLinkEventStat+    , DynamicLinkEventStat+    , dynamicLinkEventStat+    , dlesEvent+    , dlesPlatform+    , dlesCount+     -- * IosInfo     , IosInfo     , iosInfo     , iiIosBundleId     , iiIosIPadBundleId     , iiIosAppStoreId+    , iiIosMinimumVersion     , iiIosIPadFallbackLink     , iiIosCustomScheme     , iiIosFallbackLink@@ -67,19 +101,71 @@     -- * DynamicLinkInfo     , DynamicLinkInfo     , dynamicLinkInfo+    , dliNavigationInfo+    , dliDesktopInfo     , dliSocialMetaTagInfo     , dliDynamicLinkDomain     , dliLink     , dliIosInfo+    , dliDomainURIPrefix     , dliAndroidInfo     , dliAnalyticsInfo +    -- * GetIosPostInstallAttributionRequestVisualStyle+    , GetIosPostInstallAttributionRequestVisualStyle (..)++    -- * DynamicLinkStats+    , DynamicLinkStats+    , dynamicLinkStats+    , dlsLinkEventStats+     -- * SuffixOption     , SuffixOption (..) +    -- * DynamicLinkEventStatEvent+    , DynamicLinkEventStatEvent (..)++    -- * CreateManagedShortLinkRequest+    , CreateManagedShortLinkRequest+    , createManagedShortLinkRequest+    , cmslrLongDynamicLink+    , cmslrSuffix+    , cmslrDynamicLinkInfo+    , cmslrSdkVersion+    , cmslrName++    -- * GetIosReopenAttributionResponse+    , GetIosReopenAttributionResponse+    , getIosReopenAttributionResponse+    , girarIosMinAppVersion+    , girarDeepLink+    , girarResolvedLink+    , girarUtmMedium+    , girarInvitationId+    , girarUtmCampaign+    , girarUtmSource++    -- * GetIosPostInstallAttributionResponseRequestIPVersion+    , GetIosPostInstallAttributionResponseRequestIPVersion (..)++    -- * GetIosPostInstallAttributionRequest+    , GetIosPostInstallAttributionRequest+    , getIosPostInstallAttributionRequest+    , gipiarIosVersion+    , gipiarUniqueMatchLinkToCheck+    , gipiarAppInstallationTime+    , gipiarDevice+    , gipiarSdkVersion+    , gipiarBundleId+    , gipiarRetrievalMethod+    , gipiarVisualStyle+     -- * Xgafv     , Xgafv (..) +    -- * GetIosPostInstallAttributionResponseAttributionConfidence+    , GetIosPostInstallAttributionResponseAttributionConfidence (..)+     -- * AndroidInfo     , AndroidInfo     , androidInfo@@ -105,6 +191,38 @@     , itcaPt     , itcaCt +    -- * GetIosPostInstallAttributionResponse+    , GetIosPostInstallAttributionResponse+    , getIosPostInstallAttributionResponse+    , gipiarDeepLink+    , gipiarRequestIPVersion+    , gipiarAppMinimumVersion+    , gipiarAttributionConfidence+    , gipiarExternalBrowserDestinationLink+    , gipiarResolvedLink+    , gipiarRequestedLink+    , gipiarUtmMedium+    , gipiarFallbackLink+    , gipiarInvitationId+    , gipiarIsStrongMatchExecutable+    , gipiarUtmCampaign+    , gipiarMatchMessage+    , gipiarUtmSource++    -- * CreateManagedShortLinkResponse+    , CreateManagedShortLinkResponse+    , createManagedShortLinkResponse+    , cmslrManagedShortLink+    , cmslrPreviewLink+    , cmslrWarning++    -- * GetIosReopenAttributionRequest+    , GetIosReopenAttributionRequest+    , getIosReopenAttributionRequest+    , girarRequestedLink+    , girarSdkVersion+    , girarBundleId+     -- * GooglePlayAnalytics     , GooglePlayAnalytics     , googlePlayAnalytics@@ -114,6 +232,23 @@     , gpaUtmCampaign     , gpaGclid     , gpaUtmSource++    -- * GetIosPostInstallAttributionRequestRetrievalMethod+    , GetIosPostInstallAttributionRequestRetrievalMethod (..)++    -- * DeviceInfo+    , DeviceInfo+    , deviceInfo+    , diLanguageCodeFromWebview+    , diScreenResolutionWidth+    , diLanguageCode+    , diDeviceModelName+    , diScreenResolutionHeight+    , diLanguageCodeRaw+    , diTimezone++    -- * ManagedShortLinkVisibility+    , ManagedShortLinkVisibility (..)     ) where  import           Network.Google.FirebaseDynamicLinks.Types.Product

@@ -20,774 +20,1949 @@ import           Network.Google.FirebaseDynamicLinks.Types.Sum import           Network.Google.Prelude --- | Short Dynamic Link suffix.------ /See:/ 'suffix' smart constructor.-newtype Suffix = Suffix'-    { _sOption :: Maybe SuffixOption-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'Suffix' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sOption'-suffix-    :: Suffix-suffix =-    Suffix'-    { _sOption = Nothing-    }---- | Suffix option.-sOption :: Lens' Suffix (Maybe SuffixOption)-sOption = lens _sOption (\ s a -> s{_sOption = a})--instance FromJSON Suffix where-        parseJSON-          = withObject "Suffix"-              (\ o -> Suffix' <$> (o .:? "option"))--instance ToJSON Suffix where-        toJSON Suffix'{..}-          = object (catMaybes [("option" .=) <$> _sOption])---- | Dynamic Links warning messages.------ /See:/ 'dynamicLinkWarning' smart constructor.-data DynamicLinkWarning = DynamicLinkWarning'-    { _dlwWarningCode    :: !(Maybe DynamicLinkWarningWarningCode)-    , _dlwWarningMessage :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'DynamicLinkWarning' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlwWarningCode'------ * 'dlwWarningMessage'-dynamicLinkWarning-    :: DynamicLinkWarning-dynamicLinkWarning =-    DynamicLinkWarning'-    { _dlwWarningCode = Nothing-    , _dlwWarningMessage = Nothing-    }---- | The warning code.-dlwWarningCode :: Lens' DynamicLinkWarning (Maybe DynamicLinkWarningWarningCode)-dlwWarningCode-  = lens _dlwWarningCode-      (\ s a -> s{_dlwWarningCode = a})---- | The warning message to help developers improve their requests.-dlwWarningMessage :: Lens' DynamicLinkWarning (Maybe Text)-dlwWarningMessage-  = lens _dlwWarningMessage-      (\ s a -> s{_dlwWarningMessage = a})--instance FromJSON DynamicLinkWarning where-        parseJSON-          = withObject "DynamicLinkWarning"-              (\ o ->-                 DynamicLinkWarning' <$>-                   (o .:? "warningCode") <*> (o .:? "warningMessage"))--instance ToJSON DynamicLinkWarning where-        toJSON DynamicLinkWarning'{..}-          = object-              (catMaybes-                 [("warningCode" .=) <$> _dlwWarningCode,-                  ("warningMessage" .=) <$> _dlwWarningMessage])---- | Request to create a short Dynamic Link.------ /See:/ 'createShortDynamicLinkRequest' smart constructor.-data CreateShortDynamicLinkRequest = CreateShortDynamicLinkRequest'-    { _csdlrLongDynamicLink :: !(Maybe Text)-    , _csdlrSuffix          :: !(Maybe Suffix)-    , _csdlrDynamicLinkInfo :: !(Maybe DynamicLinkInfo)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'CreateShortDynamicLinkRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csdlrLongDynamicLink'------ * 'csdlrSuffix'------ * 'csdlrDynamicLinkInfo'-createShortDynamicLinkRequest-    :: CreateShortDynamicLinkRequest-createShortDynamicLinkRequest =-    CreateShortDynamicLinkRequest'-    { _csdlrLongDynamicLink = Nothing-    , _csdlrSuffix = Nothing-    , _csdlrDynamicLinkInfo = Nothing-    }---- | Full long Dynamic Link URL with desired query parameters specified. For--- example,--- \"https:\/\/sample.app.goo.gl\/?link=http:\/\/www.google.com&apn=com.sample\",--- [Learn--- more](https:\/\/firebase.google.com\/docs\/dynamic-links\/android#create-a-dynamic-link-programmatically).-csdlrLongDynamicLink :: Lens' CreateShortDynamicLinkRequest (Maybe Text)-csdlrLongDynamicLink-  = lens _csdlrLongDynamicLink-      (\ s a -> s{_csdlrLongDynamicLink = a})---- | Short Dynamic Link suffix. Optional.-csdlrSuffix :: Lens' CreateShortDynamicLinkRequest (Maybe Suffix)-csdlrSuffix-  = lens _csdlrSuffix (\ s a -> s{_csdlrSuffix = a})---- | Information about the Dynamic Link to be shortened. [Learn--- more](https:\/\/firebase.google.com\/docs\/dynamic-links\/android#create-a-dynamic-link-programmatically).-csdlrDynamicLinkInfo :: Lens' CreateShortDynamicLinkRequest (Maybe DynamicLinkInfo)-csdlrDynamicLinkInfo-  = lens _csdlrDynamicLinkInfo-      (\ s a -> s{_csdlrDynamicLinkInfo = a})--instance FromJSON CreateShortDynamicLinkRequest where-        parseJSON-          = withObject "CreateShortDynamicLinkRequest"-              (\ o ->-                 CreateShortDynamicLinkRequest' <$>-                   (o .:? "longDynamicLink") <*> (o .:? "suffix") <*>-                     (o .:? "dynamicLinkInfo"))--instance ToJSON CreateShortDynamicLinkRequest where-        toJSON CreateShortDynamicLinkRequest'{..}-          = object-              (catMaybes-                 [("longDynamicLink" .=) <$> _csdlrLongDynamicLink,-                  ("suffix" .=) <$> _csdlrSuffix,-                  ("dynamicLinkInfo" .=) <$> _csdlrDynamicLinkInfo])---- | Parameters for social meta tag params. Used to set meta tag data for--- link previews on social sites.------ /See:/ 'socialMetaTagInfo' smart constructor.-data SocialMetaTagInfo = SocialMetaTagInfo'-    { _smtiSocialImageLink   :: !(Maybe Text)-    , _smtiSocialDescription :: !(Maybe Text)-    , _smtiSocialTitle       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'SocialMetaTagInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smtiSocialImageLink'------ * 'smtiSocialDescription'------ * 'smtiSocialTitle'-socialMetaTagInfo-    :: SocialMetaTagInfo-socialMetaTagInfo =-    SocialMetaTagInfo'-    { _smtiSocialImageLink = Nothing-    , _smtiSocialDescription = Nothing-    , _smtiSocialTitle = Nothing-    }---- | An image url string. Optional.-smtiSocialImageLink :: Lens' SocialMetaTagInfo (Maybe Text)-smtiSocialImageLink-  = lens _smtiSocialImageLink-      (\ s a -> s{_smtiSocialImageLink = a})---- | A short description of the link. Optional.-smtiSocialDescription :: Lens' SocialMetaTagInfo (Maybe Text)-smtiSocialDescription-  = lens _smtiSocialDescription-      (\ s a -> s{_smtiSocialDescription = a})---- | Title to be displayed. Optional.-smtiSocialTitle :: Lens' SocialMetaTagInfo (Maybe Text)-smtiSocialTitle-  = lens _smtiSocialTitle-      (\ s a -> s{_smtiSocialTitle = a})--instance FromJSON SocialMetaTagInfo where-        parseJSON-          = withObject "SocialMetaTagInfo"-              (\ o ->-                 SocialMetaTagInfo' <$>-                   (o .:? "socialImageLink") <*>-                     (o .:? "socialDescription")-                     <*> (o .:? "socialTitle"))--instance ToJSON SocialMetaTagInfo where-        toJSON SocialMetaTagInfo'{..}-          = object-              (catMaybes-                 [("socialImageLink" .=) <$> _smtiSocialImageLink,-                  ("socialDescription" .=) <$> _smtiSocialDescription,-                  ("socialTitle" .=) <$> _smtiSocialTitle])---- | Response to create a short Dynamic Link.------ /See:/ 'createShortDynamicLinkResponse' smart constructor.-data CreateShortDynamicLinkResponse = CreateShortDynamicLinkResponse'-    { _csdlrPreviewLink :: !(Maybe Text)-    , _csdlrWarning     :: !(Maybe [DynamicLinkWarning])-    , _csdlrShortLink   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'CreateShortDynamicLinkResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csdlrPreviewLink'------ * 'csdlrWarning'------ * 'csdlrShortLink'-createShortDynamicLinkResponse-    :: CreateShortDynamicLinkResponse-createShortDynamicLinkResponse =-    CreateShortDynamicLinkResponse'-    { _csdlrPreviewLink = Nothing-    , _csdlrWarning = Nothing-    , _csdlrShortLink = Nothing-    }---- | Preivew link to show the link flow chart.-csdlrPreviewLink :: Lens' CreateShortDynamicLinkResponse (Maybe Text)-csdlrPreviewLink-  = lens _csdlrPreviewLink-      (\ s a -> s{_csdlrPreviewLink = a})---- | Information about potential warnings on link creation.-csdlrWarning :: Lens' CreateShortDynamicLinkResponse [DynamicLinkWarning]-csdlrWarning-  = lens _csdlrWarning (\ s a -> s{_csdlrWarning = a})-      . _Default-      . _Coerce---- | Short Dynamic Link value. e.g. https:\/\/abcd.app.goo.gl\/wxyz-csdlrShortLink :: Lens' CreateShortDynamicLinkResponse (Maybe Text)-csdlrShortLink-  = lens _csdlrShortLink-      (\ s a -> s{_csdlrShortLink = a})--instance FromJSON CreateShortDynamicLinkResponse-         where-        parseJSON-          = withObject "CreateShortDynamicLinkResponse"-              (\ o ->-                 CreateShortDynamicLinkResponse' <$>-                   (o .:? "previewLink") <*>-                     (o .:? "warning" .!= mempty)-                     <*> (o .:? "shortLink"))--instance ToJSON CreateShortDynamicLinkResponse where-        toJSON CreateShortDynamicLinkResponse'{..}-          = object-              (catMaybes-                 [("previewLink" .=) <$> _csdlrPreviewLink,-                  ("warning" .=) <$> _csdlrWarning,-                  ("shortLink" .=) <$> _csdlrShortLink])---- | iOS related attributes to the Dynamic Link..------ /See:/ 'iosInfo' smart constructor.-data IosInfo = IosInfo'-    { _iiIosBundleId         :: !(Maybe Text)-    , _iiIosIPadBundleId     :: !(Maybe Text)-    , _iiIosAppStoreId       :: !(Maybe Text)-    , _iiIosIPadFallbackLink :: !(Maybe Text)-    , _iiIosCustomScheme     :: !(Maybe Text)-    , _iiIosFallbackLink     :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'IosInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iiIosBundleId'------ * 'iiIosIPadBundleId'------ * 'iiIosAppStoreId'------ * 'iiIosIPadFallbackLink'------ * 'iiIosCustomScheme'------ * 'iiIosFallbackLink'-iosInfo-    :: IosInfo-iosInfo =-    IosInfo'-    { _iiIosBundleId = Nothing-    , _iiIosIPadBundleId = Nothing-    , _iiIosAppStoreId = Nothing-    , _iiIosIPadFallbackLink = Nothing-    , _iiIosCustomScheme = Nothing-    , _iiIosFallbackLink = Nothing-    }---- | iOS bundle ID of the app.-iiIosBundleId :: Lens' IosInfo (Maybe Text)-iiIosBundleId-  = lens _iiIosBundleId-      (\ s a -> s{_iiIosBundleId = a})---- | iPad bundle ID of the app.-iiIosIPadBundleId :: Lens' IosInfo (Maybe Text)-iiIosIPadBundleId-  = lens _iiIosIPadBundleId-      (\ s a -> s{_iiIosIPadBundleId = a})---- | iOS App Store ID.-iiIosAppStoreId :: Lens' IosInfo (Maybe Text)-iiIosAppStoreId-  = lens _iiIosAppStoreId-      (\ s a -> s{_iiIosAppStoreId = a})---- | If specified, this overrides the ios_fallback_link value on iPads.-iiIosIPadFallbackLink :: Lens' IosInfo (Maybe Text)-iiIosIPadFallbackLink-  = lens _iiIosIPadFallbackLink-      (\ s a -> s{_iiIosIPadFallbackLink = a})---- | Custom (destination) scheme to use for iOS. By default, we’ll use the--- bundle ID as the custom scheme. Developer can override this behavior--- using this param.-iiIosCustomScheme :: Lens' IosInfo (Maybe Text)-iiIosCustomScheme-  = lens _iiIosCustomScheme-      (\ s a -> s{_iiIosCustomScheme = a})---- | Link to open on iOS if the app is not installed.-iiIosFallbackLink :: Lens' IosInfo (Maybe Text)-iiIosFallbackLink-  = lens _iiIosFallbackLink-      (\ s a -> s{_iiIosFallbackLink = a})--instance FromJSON IosInfo where-        parseJSON-          = withObject "IosInfo"-              (\ o ->-                 IosInfo' <$>-                   (o .:? "iosBundleId") <*> (o .:? "iosIpadBundleId")-                     <*> (o .:? "iosAppStoreId")-                     <*> (o .:? "iosIpadFallbackLink")-                     <*> (o .:? "iosCustomScheme")-                     <*> (o .:? "iosFallbackLink"))--instance ToJSON IosInfo where-        toJSON IosInfo'{..}-          = object-              (catMaybes-                 [("iosBundleId" .=) <$> _iiIosBundleId,-                  ("iosIpadBundleId" .=) <$> _iiIosIPadBundleId,-                  ("iosAppStoreId" .=) <$> _iiIosAppStoreId,-                  ("iosIpadFallbackLink" .=) <$>-                    _iiIosIPadFallbackLink,-                  ("iosCustomScheme" .=) <$> _iiIosCustomScheme,-                  ("iosFallbackLink" .=) <$> _iiIosFallbackLink])---- | Information about a Dynamic Link.------ /See:/ 'dynamicLinkInfo' smart constructor.-data DynamicLinkInfo = DynamicLinkInfo'-    { _dliSocialMetaTagInfo :: !(Maybe SocialMetaTagInfo)-    , _dliDynamicLinkDomain :: !(Maybe Text)-    , _dliLink              :: !(Maybe Text)-    , _dliIosInfo           :: !(Maybe IosInfo)-    , _dliAndroidInfo       :: !(Maybe AndroidInfo)-    , _dliAnalyticsInfo     :: !(Maybe AnalyticsInfo)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'DynamicLinkInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dliSocialMetaTagInfo'------ * 'dliDynamicLinkDomain'------ * 'dliLink'------ * 'dliIosInfo'------ * 'dliAndroidInfo'------ * 'dliAnalyticsInfo'-dynamicLinkInfo-    :: DynamicLinkInfo-dynamicLinkInfo =-    DynamicLinkInfo'-    { _dliSocialMetaTagInfo = Nothing-    , _dliDynamicLinkDomain = Nothing-    , _dliLink = Nothing-    , _dliIosInfo = Nothing-    , _dliAndroidInfo = Nothing-    , _dliAnalyticsInfo = Nothing-    }---- | Parameters for social meta tag params. Used to set meta tag data for--- link previews on social sites.-dliSocialMetaTagInfo :: Lens' DynamicLinkInfo (Maybe SocialMetaTagInfo)-dliSocialMetaTagInfo-  = lens _dliSocialMetaTagInfo-      (\ s a -> s{_dliSocialMetaTagInfo = a})---- | Dynamic Links domain that the project owns, e.g. abcd.app.goo.gl [Learn--- more](https:\/\/firebase.google.com\/docs\/dynamic-links\/android#set-up-firebase-and-the-dynamic-links-sdk)--- on how to set up Dynamic Link domain associated with your Firebase--- project. Required.-dliDynamicLinkDomain :: Lens' DynamicLinkInfo (Maybe Text)-dliDynamicLinkDomain-  = lens _dliDynamicLinkDomain-      (\ s a -> s{_dliDynamicLinkDomain = a})---- | The link your app will open, You can specify any URL your app can--- handle. This link must be a well-formatted URL, be properly URL-encoded,--- and use the HTTP or HTTPS scheme. See \'link\' parameters in the--- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/android#create-a-dynamic-link-programmatically).--- Required.-dliLink :: Lens' DynamicLinkInfo (Maybe Text)-dliLink = lens _dliLink (\ s a -> s{_dliLink = a})---- | iOS related information. See iOS related parameters in the--- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/ios#create-a-dynamic-link-programmatically).-dliIosInfo :: Lens' DynamicLinkInfo (Maybe IosInfo)-dliIosInfo-  = lens _dliIosInfo (\ s a -> s{_dliIosInfo = a})---- | Android related information. See Android related parameters in the--- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/android#create-a-dynamic-link-programmatically).-dliAndroidInfo :: Lens' DynamicLinkInfo (Maybe AndroidInfo)-dliAndroidInfo-  = lens _dliAndroidInfo-      (\ s a -> s{_dliAndroidInfo = a})---- | Parameters used for tracking. See all tracking parameters in the--- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/android#create-a-dynamic-link-programmatically).-dliAnalyticsInfo :: Lens' DynamicLinkInfo (Maybe AnalyticsInfo)-dliAnalyticsInfo-  = lens _dliAnalyticsInfo-      (\ s a -> s{_dliAnalyticsInfo = a})--instance FromJSON DynamicLinkInfo where-        parseJSON-          = withObject "DynamicLinkInfo"-              (\ o ->-                 DynamicLinkInfo' <$>-                   (o .:? "socialMetaTagInfo") <*>-                     (o .:? "dynamicLinkDomain")-                     <*> (o .:? "link")-                     <*> (o .:? "iosInfo")-                     <*> (o .:? "androidInfo")-                     <*> (o .:? "analyticsInfo"))--instance ToJSON DynamicLinkInfo where-        toJSON DynamicLinkInfo'{..}-          = object-              (catMaybes-                 [("socialMetaTagInfo" .=) <$> _dliSocialMetaTagInfo,-                  ("dynamicLinkDomain" .=) <$> _dliDynamicLinkDomain,-                  ("link" .=) <$> _dliLink,-                  ("iosInfo" .=) <$> _dliIosInfo,-                  ("androidInfo" .=) <$> _dliAndroidInfo,-                  ("analyticsInfo" .=) <$> _dliAnalyticsInfo])---- | Android related attributes to the Dynamic Link.------ /See:/ 'androidInfo' smart constructor.-data AndroidInfo = AndroidInfo'-    { _aiAndroidMinPackageVersionCode :: !(Maybe Text)-    , _aiAndroidFallbackLink          :: !(Maybe Text)-    , _aiAndroidLink                  :: !(Maybe Text)-    , _aiAndroidPackageName           :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'AndroidInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aiAndroidMinPackageVersionCode'------ * 'aiAndroidFallbackLink'------ * 'aiAndroidLink'------ * 'aiAndroidPackageName'-androidInfo-    :: AndroidInfo-androidInfo =-    AndroidInfo'-    { _aiAndroidMinPackageVersionCode = Nothing-    , _aiAndroidFallbackLink = Nothing-    , _aiAndroidLink = Nothing-    , _aiAndroidPackageName = Nothing-    }---- | Minimum version code for the Android app. If the installed app’s version--- code is lower, then the user is taken to the Play Store.-aiAndroidMinPackageVersionCode :: Lens' AndroidInfo (Maybe Text)-aiAndroidMinPackageVersionCode-  = lens _aiAndroidMinPackageVersionCode-      (\ s a -> s{_aiAndroidMinPackageVersionCode = a})---- | Link to open on Android if the app is not installed.-aiAndroidFallbackLink :: Lens' AndroidInfo (Maybe Text)-aiAndroidFallbackLink-  = lens _aiAndroidFallbackLink-      (\ s a -> s{_aiAndroidFallbackLink = a})---- | If specified, this overrides the ‘link’ parameter on Android.-aiAndroidLink :: Lens' AndroidInfo (Maybe Text)-aiAndroidLink-  = lens _aiAndroidLink-      (\ s a -> s{_aiAndroidLink = a})---- | Android package name of the app.-aiAndroidPackageName :: Lens' AndroidInfo (Maybe Text)-aiAndroidPackageName-  = lens _aiAndroidPackageName-      (\ s a -> s{_aiAndroidPackageName = a})--instance FromJSON AndroidInfo where-        parseJSON-          = withObject "AndroidInfo"-              (\ o ->-                 AndroidInfo' <$>-                   (o .:? "androidMinPackageVersionCode") <*>-                     (o .:? "androidFallbackLink")-                     <*> (o .:? "androidLink")-                     <*> (o .:? "androidPackageName"))--instance ToJSON AndroidInfo where-        toJSON AndroidInfo'{..}-          = object-              (catMaybes-                 [("androidMinPackageVersionCode" .=) <$>-                    _aiAndroidMinPackageVersionCode,-                  ("androidFallbackLink" .=) <$>-                    _aiAndroidFallbackLink,-                  ("androidLink" .=) <$> _aiAndroidLink,-                  ("androidPackageName" .=) <$> _aiAndroidPackageName])---- | Tracking parameters supported by Dynamic Link.------ /See:/ 'analyticsInfo' smart constructor.-data AnalyticsInfo = AnalyticsInfo'-    { _aiItunesConnectAnalytics :: !(Maybe ITunesConnectAnalytics)-    , _aiGooglePlayAnalytics    :: !(Maybe GooglePlayAnalytics)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'AnalyticsInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aiItunesConnectAnalytics'------ * 'aiGooglePlayAnalytics'-analyticsInfo-    :: AnalyticsInfo-analyticsInfo =-    AnalyticsInfo'-    { _aiItunesConnectAnalytics = Nothing-    , _aiGooglePlayAnalytics = Nothing-    }---- | iTunes Connect App Analytics.-aiItunesConnectAnalytics :: Lens' AnalyticsInfo (Maybe ITunesConnectAnalytics)-aiItunesConnectAnalytics-  = lens _aiItunesConnectAnalytics-      (\ s a -> s{_aiItunesConnectAnalytics = a})---- | Google Play Campaign Measurements.-aiGooglePlayAnalytics :: Lens' AnalyticsInfo (Maybe GooglePlayAnalytics)-aiGooglePlayAnalytics-  = lens _aiGooglePlayAnalytics-      (\ s a -> s{_aiGooglePlayAnalytics = a})--instance FromJSON AnalyticsInfo where-        parseJSON-          = withObject "AnalyticsInfo"-              (\ o ->-                 AnalyticsInfo' <$>-                   (o .:? "itunesConnectAnalytics") <*>-                     (o .:? "googlePlayAnalytics"))--instance ToJSON AnalyticsInfo where-        toJSON AnalyticsInfo'{..}-          = object-              (catMaybes-                 [("itunesConnectAnalytics" .=) <$>-                    _aiItunesConnectAnalytics,-                  ("googlePlayAnalytics" .=) <$>-                    _aiGooglePlayAnalytics])---- | Parameters for iTunes Connect App Analytics.------ /See:/ 'iTunesConnectAnalytics' smart constructor.-data ITunesConnectAnalytics = ITunesConnectAnalytics'-    { _itcaAt :: !(Maybe Text)-    , _itcaMt :: !(Maybe Text)-    , _itcaPt :: !(Maybe Text)-    , _itcaCt :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'ITunesConnectAnalytics' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'itcaAt'------ * 'itcaMt'------ * 'itcaPt'------ * 'itcaCt'-iTunesConnectAnalytics-    :: ITunesConnectAnalytics-iTunesConnectAnalytics =-    ITunesConnectAnalytics'-    { _itcaAt = Nothing-    , _itcaMt = Nothing-    , _itcaPt = Nothing-    , _itcaCt = Nothing-    }---- | Affiliate token used to create affiliate-coded links.-itcaAt :: Lens' ITunesConnectAnalytics (Maybe Text)-itcaAt = lens _itcaAt (\ s a -> s{_itcaAt = a})---- | iTune media types, including music, podcasts, audiobooks and so on.-itcaMt :: Lens' ITunesConnectAnalytics (Maybe Text)-itcaMt = lens _itcaMt (\ s a -> s{_itcaMt = a})---- | Provider token that enables analytics for Dynamic Links from within--- iTunes Connect.-itcaPt :: Lens' ITunesConnectAnalytics (Maybe Text)-itcaPt = lens _itcaPt (\ s a -> s{_itcaPt = a})---- | Campaign text that developers can optionally add to any link in order to--- track sales from a specific marketing campaign.-itcaCt :: Lens' ITunesConnectAnalytics (Maybe Text)-itcaCt = lens _itcaCt (\ s a -> s{_itcaCt = a})--instance FromJSON ITunesConnectAnalytics where-        parseJSON-          = withObject "ITunesConnectAnalytics"-              (\ o ->-                 ITunesConnectAnalytics' <$>-                   (o .:? "at") <*> (o .:? "mt") <*> (o .:? "pt") <*>-                     (o .:? "ct"))--instance ToJSON ITunesConnectAnalytics where-        toJSON ITunesConnectAnalytics'{..}-          = object-              (catMaybes-                 [("at" .=) <$> _itcaAt, ("mt" .=) <$> _itcaMt,-                  ("pt" .=) <$> _itcaPt, ("ct" .=) <$> _itcaCt])---- | Parameters for Google Play Campaign Measurements. [Learn--- more](https:\/\/developers.google.com\/analytics\/devguides\/collection\/android\/v4\/campaigns#campaign-params)------ /See:/ 'googlePlayAnalytics' smart constructor.-data GooglePlayAnalytics = GooglePlayAnalytics'-    { _gpaUtmContent  :: !(Maybe Text)-    , _gpaUtmMedium   :: !(Maybe Text)-    , _gpaUtmTerm     :: !(Maybe Text)-    , _gpaUtmCampaign :: !(Maybe Text)-    , _gpaGclid       :: !(Maybe Text)-    , _gpaUtmSource   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'GooglePlayAnalytics' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gpaUtmContent'------ * 'gpaUtmMedium'------ * 'gpaUtmTerm'------ * 'gpaUtmCampaign'------ * 'gpaGclid'------ * 'gpaUtmSource'-googlePlayAnalytics-    :: GooglePlayAnalytics-googlePlayAnalytics =-    GooglePlayAnalytics'-    { _gpaUtmContent = Nothing-    , _gpaUtmMedium = Nothing-    , _gpaUtmTerm = Nothing-    , _gpaUtmCampaign = Nothing-    , _gpaGclid = Nothing-    , _gpaUtmSource = Nothing-    }---- | Campaign content; used for A\/B testing and content-targeted ads to--- differentiate ads or links that point to the same URL.-gpaUtmContent :: Lens' GooglePlayAnalytics (Maybe Text)-gpaUtmContent-  = lens _gpaUtmContent-      (\ s a -> s{_gpaUtmContent = a})---- | Campaign medium; used to identify a medium such as email or--- cost-per-click.-gpaUtmMedium :: Lens' GooglePlayAnalytics (Maybe Text)-gpaUtmMedium-  = lens _gpaUtmMedium (\ s a -> s{_gpaUtmMedium = a})---- | Campaign term; used with paid search to supply the keywords for ads.-gpaUtmTerm :: Lens' GooglePlayAnalytics (Maybe Text)-gpaUtmTerm-  = lens _gpaUtmTerm (\ s a -> s{_gpaUtmTerm = a})---- | Campaign name; used for keyword analysis to identify a specific product--- promotion or strategic campaign.-gpaUtmCampaign :: Lens' GooglePlayAnalytics (Maybe Text)-gpaUtmCampaign-  = lens _gpaUtmCampaign-      (\ s a -> s{_gpaUtmCampaign = a})---- | [AdWords autotagging--- parameter](https:\/\/support.google.com\/analytics\/answer\/1033981?hl=en);--- used to measure Google AdWords ads. This value is generated dynamically--- and should never be modified.-gpaGclid :: Lens' GooglePlayAnalytics (Maybe Text)-gpaGclid = lens _gpaGclid (\ s a -> s{_gpaGclid = a})---- | Campaign source; used to identify a search engine, newsletter, or other--- source.-gpaUtmSource :: Lens' GooglePlayAnalytics (Maybe Text)-gpaUtmSource-  = lens _gpaUtmSource (\ s a -> s{_gpaUtmSource = a})--instance FromJSON GooglePlayAnalytics where-        parseJSON-          = withObject "GooglePlayAnalytics"-              (\ o ->-                 GooglePlayAnalytics' <$>-                   (o .:? "utmContent") <*> (o .:? "utmMedium") <*>-                     (o .:? "utmTerm")-                     <*> (o .:? "utmCampaign")-                     <*> (o .:? "gclid")-                     <*> (o .:? "utmSource"))--instance ToJSON GooglePlayAnalytics where-        toJSON GooglePlayAnalytics'{..}-          = object-              (catMaybes-                 [("utmContent" .=) <$> _gpaUtmContent,-                  ("utmMedium" .=) <$> _gpaUtmMedium,-                  ("utmTerm" .=) <$> _gpaUtmTerm,-                  ("utmCampaign" .=) <$> _gpaUtmCampaign,-                  ("gclid" .=) <$> _gpaGclid,-                  ("utmSource" .=) <$> _gpaUtmSource])+-- | Information of navigation behavior.+--+-- /See:/ 'navigationInfo' smart constructor.+newtype NavigationInfo = NavigationInfo'+    { _niEnableForcedRedirect :: Maybe Bool+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'NavigationInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'niEnableForcedRedirect'+navigationInfo+    :: NavigationInfo+navigationInfo =+    NavigationInfo'+    { _niEnableForcedRedirect = Nothing+    }++-- | If this option is on, FDL click will be forced to redirect rather than+-- show an interstitial page.+niEnableForcedRedirect :: Lens' NavigationInfo (Maybe Bool)+niEnableForcedRedirect+  = lens _niEnableForcedRedirect+      (\ s a -> s{_niEnableForcedRedirect = a})++instance FromJSON NavigationInfo where+        parseJSON+          = withObject "NavigationInfo"+              (\ o ->+                 NavigationInfo' <$> (o .:? "enableForcedRedirect"))++instance ToJSON NavigationInfo where+        toJSON NavigationInfo'{..}+          = object+              (catMaybes+                 [("enableForcedRedirect" .=) <$>+                    _niEnableForcedRedirect])++-- | Desktop related attributes to the Dynamic Link.+--+-- /See:/ 'desktopInfo' smart constructor.+newtype DesktopInfo = DesktopInfo'+    { _diDesktopFallbackLink :: Maybe Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'DesktopInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diDesktopFallbackLink'+desktopInfo+    :: DesktopInfo+desktopInfo =+    DesktopInfo'+    { _diDesktopFallbackLink = Nothing+    }++-- | Link to open on desktop.+diDesktopFallbackLink :: Lens' DesktopInfo (Maybe Text)+diDesktopFallbackLink+  = lens _diDesktopFallbackLink+      (\ s a -> s{_diDesktopFallbackLink = a})++instance FromJSON DesktopInfo where+        parseJSON+          = withObject "DesktopInfo"+              (\ o ->+                 DesktopInfo' <$> (o .:? "desktopFallbackLink"))++instance ToJSON DesktopInfo where+        toJSON DesktopInfo'{..}+          = object+              (catMaybes+                 [("desktopFallbackLink" .=) <$>+                    _diDesktopFallbackLink])++-- | Short Dynamic Link suffix.+--+-- /See:/ 'suffix' smart constructor.+data Suffix = Suffix'+    { _sCustomSuffix :: !(Maybe Text)+    , _sOption       :: !(Maybe SuffixOption)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'Suffix' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sCustomSuffix'+--+-- * 'sOption'+suffix+    :: Suffix+suffix =+    Suffix'+    { _sCustomSuffix = Nothing+    , _sOption = Nothing+    }++-- | Only applies to Option.CUSTOM.+sCustomSuffix :: Lens' Suffix (Maybe Text)+sCustomSuffix+  = lens _sCustomSuffix+      (\ s a -> s{_sCustomSuffix = a})++-- | Suffix option.+sOption :: Lens' Suffix (Maybe SuffixOption)+sOption = lens _sOption (\ s a -> s{_sOption = a})++instance FromJSON Suffix where+        parseJSON+          = withObject "Suffix"+              (\ o ->+                 Suffix' <$>+                   (o .:? "customSuffix") <*> (o .:? "option"))++instance ToJSON Suffix where+        toJSON Suffix'{..}+          = object+              (catMaybes+                 [("customSuffix" .=) <$> _sCustomSuffix,+                  ("option" .=) <$> _sOption])++-- | Dynamic Links warning messages.+--+-- /See:/ 'dynamicLinkWarning' smart constructor.+data DynamicLinkWarning = DynamicLinkWarning'+    { _dlwWarningCode         :: !(Maybe DynamicLinkWarningWarningCode)+    , _dlwWarningDocumentLink :: !(Maybe Text)+    , _dlwWarningMessage      :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'DynamicLinkWarning' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlwWarningCode'+--+-- * 'dlwWarningDocumentLink'+--+-- * 'dlwWarningMessage'+dynamicLinkWarning+    :: DynamicLinkWarning+dynamicLinkWarning =+    DynamicLinkWarning'+    { _dlwWarningCode = Nothing+    , _dlwWarningDocumentLink = Nothing+    , _dlwWarningMessage = Nothing+    }++-- | The warning code.+dlwWarningCode :: Lens' DynamicLinkWarning (Maybe DynamicLinkWarningWarningCode)+dlwWarningCode+  = lens _dlwWarningCode+      (\ s a -> s{_dlwWarningCode = a})++-- | The document describing the warning, and helps resolve.+dlwWarningDocumentLink :: Lens' DynamicLinkWarning (Maybe Text)+dlwWarningDocumentLink+  = lens _dlwWarningDocumentLink+      (\ s a -> s{_dlwWarningDocumentLink = a})++-- | The warning message to help developers improve their requests.+dlwWarningMessage :: Lens' DynamicLinkWarning (Maybe Text)+dlwWarningMessage+  = lens _dlwWarningMessage+      (\ s a -> s{_dlwWarningMessage = a})++instance FromJSON DynamicLinkWarning where+        parseJSON+          = withObject "DynamicLinkWarning"+              (\ o ->+                 DynamicLinkWarning' <$>+                   (o .:? "warningCode") <*>+                     (o .:? "warningDocumentLink")+                     <*> (o .:? "warningMessage"))++instance ToJSON DynamicLinkWarning where+        toJSON DynamicLinkWarning'{..}+          = object+              (catMaybes+                 [("warningCode" .=) <$> _dlwWarningCode,+                  ("warningDocumentLink" .=) <$>+                    _dlwWarningDocumentLink,+                  ("warningMessage" .=) <$> _dlwWarningMessage])++-- | Managed Short Link.+--+-- /See:/ 'managedShortLink' smart constructor.+data ManagedShortLink = ManagedShortLink'+    { _mslCreationTime     :: !(Maybe DateTime')+    , _mslLink             :: !(Maybe Text)+    , _mslVisibility       :: !(Maybe ManagedShortLinkVisibility)+    , _mslLinkName         :: !(Maybe Text)+    , _mslFlaggedAttribute :: !(Maybe [Text])+    , _mslInfo             :: !(Maybe DynamicLinkInfo)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ManagedShortLink' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mslCreationTime'+--+-- * 'mslLink'+--+-- * 'mslVisibility'+--+-- * 'mslLinkName'+--+-- * 'mslFlaggedAttribute'+--+-- * 'mslInfo'+managedShortLink+    :: ManagedShortLink+managedShortLink =+    ManagedShortLink'+    { _mslCreationTime = Nothing+    , _mslLink = Nothing+    , _mslVisibility = Nothing+    , _mslLinkName = Nothing+    , _mslFlaggedAttribute = Nothing+    , _mslInfo = Nothing+    }++-- | Creation timestamp of the short link.+mslCreationTime :: Lens' ManagedShortLink (Maybe UTCTime)+mslCreationTime+  = lens _mslCreationTime+      (\ s a -> s{_mslCreationTime = a})+      . mapping _DateTime++-- | Short durable link url, for example,+-- \"https:\/\/sample.app.goo.gl\/xyz123\". Required.+mslLink :: Lens' ManagedShortLink (Maybe Text)+mslLink = lens _mslLink (\ s a -> s{_mslLink = a})++-- | Visibility status of link.+mslVisibility :: Lens' ManagedShortLink (Maybe ManagedShortLinkVisibility)+mslVisibility+  = lens _mslVisibility+      (\ s a -> s{_mslVisibility = a})++-- | Link name defined by the creator. Required.+mslLinkName :: Lens' ManagedShortLink (Maybe Text)+mslLinkName+  = lens _mslLinkName (\ s a -> s{_mslLinkName = a})++-- | Attributes that have been flagged about this short url.+mslFlaggedAttribute :: Lens' ManagedShortLink [Text]+mslFlaggedAttribute+  = lens _mslFlaggedAttribute+      (\ s a -> s{_mslFlaggedAttribute = a})+      . _Default+      . _Coerce++-- | Full Dyamic Link info+mslInfo :: Lens' ManagedShortLink (Maybe DynamicLinkInfo)+mslInfo = lens _mslInfo (\ s a -> s{_mslInfo = a})++instance FromJSON ManagedShortLink where+        parseJSON+          = withObject "ManagedShortLink"+              (\ o ->+                 ManagedShortLink' <$>+                   (o .:? "creationTime") <*> (o .:? "link") <*>+                     (o .:? "visibility")+                     <*> (o .:? "linkName")+                     <*> (o .:? "flaggedAttribute" .!= mempty)+                     <*> (o .:? "info"))++instance ToJSON ManagedShortLink where+        toJSON ManagedShortLink'{..}+          = object+              (catMaybes+                 [("creationTime" .=) <$> _mslCreationTime,+                  ("link" .=) <$> _mslLink,+                  ("visibility" .=) <$> _mslVisibility,+                  ("linkName" .=) <$> _mslLinkName,+                  ("flaggedAttribute" .=) <$> _mslFlaggedAttribute,+                  ("info" .=) <$> _mslInfo])++-- | Request to create a short Dynamic Link.+--+-- /See:/ 'createShortDynamicLinkRequest' smart constructor.+data CreateShortDynamicLinkRequest = CreateShortDynamicLinkRequest'+    { _csdlrLongDynamicLink :: !(Maybe Text)+    , _csdlrSuffix          :: !(Maybe Suffix)+    , _csdlrDynamicLinkInfo :: !(Maybe DynamicLinkInfo)+    , _csdlrSdkVersion      :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateShortDynamicLinkRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csdlrLongDynamicLink'+--+-- * 'csdlrSuffix'+--+-- * 'csdlrDynamicLinkInfo'+--+-- * 'csdlrSdkVersion'+createShortDynamicLinkRequest+    :: CreateShortDynamicLinkRequest+createShortDynamicLinkRequest =+    CreateShortDynamicLinkRequest'+    { _csdlrLongDynamicLink = Nothing+    , _csdlrSuffix = Nothing+    , _csdlrDynamicLinkInfo = Nothing+    , _csdlrSdkVersion = Nothing+    }++-- | Full long Dynamic Link URL with desired query parameters specified. For+-- example,+-- \"https:\/\/sample.app.goo.gl\/?link=http:\/\/www.google.com&apn=com.sample\",+-- [Learn+-- more](https:\/\/firebase.google.com\/docs\/reference\/dynamic-links\/link-shortener).+csdlrLongDynamicLink :: Lens' CreateShortDynamicLinkRequest (Maybe Text)+csdlrLongDynamicLink+  = lens _csdlrLongDynamicLink+      (\ s a -> s{_csdlrLongDynamicLink = a})++-- | Short Dynamic Link suffix. Optional.+csdlrSuffix :: Lens' CreateShortDynamicLinkRequest (Maybe Suffix)+csdlrSuffix+  = lens _csdlrSuffix (\ s a -> s{_csdlrSuffix = a})++-- | Information about the Dynamic Link to be shortened. [Learn+-- more](https:\/\/firebase.google.com\/docs\/reference\/dynamic-links\/link-shortener).+csdlrDynamicLinkInfo :: Lens' CreateShortDynamicLinkRequest (Maybe DynamicLinkInfo)+csdlrDynamicLinkInfo+  = lens _csdlrDynamicLinkInfo+      (\ s a -> s{_csdlrDynamicLinkInfo = a})++-- | Google SDK version. Version takes the form+-- \"/m//a//j//o//r/.minor.$patch\"+csdlrSdkVersion :: Lens' CreateShortDynamicLinkRequest (Maybe Text)+csdlrSdkVersion+  = lens _csdlrSdkVersion+      (\ s a -> s{_csdlrSdkVersion = a})++instance FromJSON CreateShortDynamicLinkRequest where+        parseJSON+          = withObject "CreateShortDynamicLinkRequest"+              (\ o ->+                 CreateShortDynamicLinkRequest' <$>+                   (o .:? "longDynamicLink") <*> (o .:? "suffix") <*>+                     (o .:? "dynamicLinkInfo")+                     <*> (o .:? "sdkVersion"))++instance ToJSON CreateShortDynamicLinkRequest where+        toJSON CreateShortDynamicLinkRequest'{..}+          = object+              (catMaybes+                 [("longDynamicLink" .=) <$> _csdlrLongDynamicLink,+                  ("suffix" .=) <$> _csdlrSuffix,+                  ("dynamicLinkInfo" .=) <$> _csdlrDynamicLinkInfo,+                  ("sdkVersion" .=) <$> _csdlrSdkVersion])++-- | Parameters for social meta tag params. Used to set meta tag data for+-- link previews on social sites.+--+-- /See:/ 'socialMetaTagInfo' smart constructor.+data SocialMetaTagInfo = SocialMetaTagInfo'+    { _smtiSocialImageLink   :: !(Maybe Text)+    , _smtiSocialDescription :: !(Maybe Text)+    , _smtiSocialTitle       :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'SocialMetaTagInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'smtiSocialImageLink'+--+-- * 'smtiSocialDescription'+--+-- * 'smtiSocialTitle'+socialMetaTagInfo+    :: SocialMetaTagInfo+socialMetaTagInfo =+    SocialMetaTagInfo'+    { _smtiSocialImageLink = Nothing+    , _smtiSocialDescription = Nothing+    , _smtiSocialTitle = Nothing+    }++-- | An image url string. Optional.+smtiSocialImageLink :: Lens' SocialMetaTagInfo (Maybe Text)+smtiSocialImageLink+  = lens _smtiSocialImageLink+      (\ s a -> s{_smtiSocialImageLink = a})++-- | A short description of the link. Optional.+smtiSocialDescription :: Lens' SocialMetaTagInfo (Maybe Text)+smtiSocialDescription+  = lens _smtiSocialDescription+      (\ s a -> s{_smtiSocialDescription = a})++-- | Title to be displayed. Optional.+smtiSocialTitle :: Lens' SocialMetaTagInfo (Maybe Text)+smtiSocialTitle+  = lens _smtiSocialTitle+      (\ s a -> s{_smtiSocialTitle = a})++instance FromJSON SocialMetaTagInfo where+        parseJSON+          = withObject "SocialMetaTagInfo"+              (\ o ->+                 SocialMetaTagInfo' <$>+                   (o .:? "socialImageLink") <*>+                     (o .:? "socialDescription")+                     <*> (o .:? "socialTitle"))++instance ToJSON SocialMetaTagInfo where+        toJSON SocialMetaTagInfo'{..}+          = object+              (catMaybes+                 [("socialImageLink" .=) <$> _smtiSocialImageLink,+                  ("socialDescription" .=) <$> _smtiSocialDescription,+                  ("socialTitle" .=) <$> _smtiSocialTitle])++-- | Response to create a short Dynamic Link.+--+-- /See:/ 'createShortDynamicLinkResponse' smart constructor.+data CreateShortDynamicLinkResponse = CreateShortDynamicLinkResponse'+    { _csdlrPreviewLink :: !(Maybe Text)+    , _csdlrWarning     :: !(Maybe [DynamicLinkWarning])+    , _csdlrShortLink   :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateShortDynamicLinkResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csdlrPreviewLink'+--+-- * 'csdlrWarning'+--+-- * 'csdlrShortLink'+createShortDynamicLinkResponse+    :: CreateShortDynamicLinkResponse+createShortDynamicLinkResponse =+    CreateShortDynamicLinkResponse'+    { _csdlrPreviewLink = Nothing+    , _csdlrWarning = Nothing+    , _csdlrShortLink = Nothing+    }++-- | Preview link to show the link flow chart. (debug info.)+csdlrPreviewLink :: Lens' CreateShortDynamicLinkResponse (Maybe Text)+csdlrPreviewLink+  = lens _csdlrPreviewLink+      (\ s a -> s{_csdlrPreviewLink = a})++-- | Information about potential warnings on link creation.+csdlrWarning :: Lens' CreateShortDynamicLinkResponse [DynamicLinkWarning]+csdlrWarning+  = lens _csdlrWarning (\ s a -> s{_csdlrWarning = a})+      . _Default+      . _Coerce++-- | Short Dynamic Link value. e.g. https:\/\/abcd.app.goo.gl\/wxyz+csdlrShortLink :: Lens' CreateShortDynamicLinkResponse (Maybe Text)+csdlrShortLink+  = lens _csdlrShortLink+      (\ s a -> s{_csdlrShortLink = a})++instance FromJSON CreateShortDynamicLinkResponse+         where+        parseJSON+          = withObject "CreateShortDynamicLinkResponse"+              (\ o ->+                 CreateShortDynamicLinkResponse' <$>+                   (o .:? "previewLink") <*>+                     (o .:? "warning" .!= mempty)+                     <*> (o .:? "shortLink"))++instance ToJSON CreateShortDynamicLinkResponse where+        toJSON CreateShortDynamicLinkResponse'{..}+          = object+              (catMaybes+                 [("previewLink" .=) <$> _csdlrPreviewLink,+                  ("warning" .=) <$> _csdlrWarning,+                  ("shortLink" .=) <$> _csdlrShortLink])++-- | Dynamic Link event stat.+--+-- /See:/ 'dynamicLinkEventStat' smart constructor.+data DynamicLinkEventStat = DynamicLinkEventStat'+    { _dlesEvent    :: !(Maybe DynamicLinkEventStatEvent)+    , _dlesPlatform :: !(Maybe DynamicLinkEventStatPlatform)+    , _dlesCount    :: !(Maybe (Textual Int64))+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'DynamicLinkEventStat' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlesEvent'+--+-- * 'dlesPlatform'+--+-- * 'dlesCount'+dynamicLinkEventStat+    :: DynamicLinkEventStat+dynamicLinkEventStat =+    DynamicLinkEventStat'+    { _dlesEvent = Nothing+    , _dlesPlatform = Nothing+    , _dlesCount = Nothing+    }++-- | Link event.+dlesEvent :: Lens' DynamicLinkEventStat (Maybe DynamicLinkEventStatEvent)+dlesEvent+  = lens _dlesEvent (\ s a -> s{_dlesEvent = a})++-- | Requested platform.+dlesPlatform :: Lens' DynamicLinkEventStat (Maybe DynamicLinkEventStatPlatform)+dlesPlatform+  = lens _dlesPlatform (\ s a -> s{_dlesPlatform = a})++-- | The number of times this event occurred.+dlesCount :: Lens' DynamicLinkEventStat (Maybe Int64)+dlesCount+  = lens _dlesCount (\ s a -> s{_dlesCount = a}) .+      mapping _Coerce++instance FromJSON DynamicLinkEventStat where+        parseJSON+          = withObject "DynamicLinkEventStat"+              (\ o ->+                 DynamicLinkEventStat' <$>+                   (o .:? "event") <*> (o .:? "platform") <*>+                     (o .:? "count"))++instance ToJSON DynamicLinkEventStat where+        toJSON DynamicLinkEventStat'{..}+          = object+              (catMaybes+                 [("event" .=) <$> _dlesEvent,+                  ("platform" .=) <$> _dlesPlatform,+                  ("count" .=) <$> _dlesCount])++-- | iOS related attributes to the Dynamic Link..+--+-- /See:/ 'iosInfo' smart constructor.+data IosInfo = IosInfo'+    { _iiIosBundleId         :: !(Maybe Text)+    , _iiIosIPadBundleId     :: !(Maybe Text)+    , _iiIosAppStoreId       :: !(Maybe Text)+    , _iiIosMinimumVersion   :: !(Maybe Text)+    , _iiIosIPadFallbackLink :: !(Maybe Text)+    , _iiIosCustomScheme     :: !(Maybe Text)+    , _iiIosFallbackLink     :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'IosInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iiIosBundleId'+--+-- * 'iiIosIPadBundleId'+--+-- * 'iiIosAppStoreId'+--+-- * 'iiIosMinimumVersion'+--+-- * 'iiIosIPadFallbackLink'+--+-- * 'iiIosCustomScheme'+--+-- * 'iiIosFallbackLink'+iosInfo+    :: IosInfo+iosInfo =+    IosInfo'+    { _iiIosBundleId = Nothing+    , _iiIosIPadBundleId = Nothing+    , _iiIosAppStoreId = Nothing+    , _iiIosMinimumVersion = Nothing+    , _iiIosIPadFallbackLink = Nothing+    , _iiIosCustomScheme = Nothing+    , _iiIosFallbackLink = Nothing+    }++-- | iOS bundle ID of the app.+iiIosBundleId :: Lens' IosInfo (Maybe Text)+iiIosBundleId+  = lens _iiIosBundleId+      (\ s a -> s{_iiIosBundleId = a})++-- | iPad bundle ID of the app.+iiIosIPadBundleId :: Lens' IosInfo (Maybe Text)+iiIosIPadBundleId+  = lens _iiIosIPadBundleId+      (\ s a -> s{_iiIosIPadBundleId = a})++-- | iOS App Store ID.+iiIosAppStoreId :: Lens' IosInfo (Maybe Text)+iiIosAppStoreId+  = lens _iiIosAppStoreId+      (\ s a -> s{_iiIosAppStoreId = a})++-- | iOS minimum version.+iiIosMinimumVersion :: Lens' IosInfo (Maybe Text)+iiIosMinimumVersion+  = lens _iiIosMinimumVersion+      (\ s a -> s{_iiIosMinimumVersion = a})++-- | If specified, this overrides the ios_fallback_link value on iPads.+iiIosIPadFallbackLink :: Lens' IosInfo (Maybe Text)+iiIosIPadFallbackLink+  = lens _iiIosIPadFallbackLink+      (\ s a -> s{_iiIosIPadFallbackLink = a})++-- | Custom (destination) scheme to use for iOS. By default, we’ll use the+-- bundle ID as the custom scheme. Developer can override this behavior+-- using this param.+iiIosCustomScheme :: Lens' IosInfo (Maybe Text)+iiIosCustomScheme+  = lens _iiIosCustomScheme+      (\ s a -> s{_iiIosCustomScheme = a})++-- | Link to open on iOS if the app is not installed.+iiIosFallbackLink :: Lens' IosInfo (Maybe Text)+iiIosFallbackLink+  = lens _iiIosFallbackLink+      (\ s a -> s{_iiIosFallbackLink = a})++instance FromJSON IosInfo where+        parseJSON+          = withObject "IosInfo"+              (\ o ->+                 IosInfo' <$>+                   (o .:? "iosBundleId") <*> (o .:? "iosIpadBundleId")+                     <*> (o .:? "iosAppStoreId")+                     <*> (o .:? "iosMinimumVersion")+                     <*> (o .:? "iosIpadFallbackLink")+                     <*> (o .:? "iosCustomScheme")+                     <*> (o .:? "iosFallbackLink"))++instance ToJSON IosInfo where+        toJSON IosInfo'{..}+          = object+              (catMaybes+                 [("iosBundleId" .=) <$> _iiIosBundleId,+                  ("iosIpadBundleId" .=) <$> _iiIosIPadBundleId,+                  ("iosAppStoreId" .=) <$> _iiIosAppStoreId,+                  ("iosMinimumVersion" .=) <$> _iiIosMinimumVersion,+                  ("iosIpadFallbackLink" .=) <$>+                    _iiIosIPadFallbackLink,+                  ("iosCustomScheme" .=) <$> _iiIosCustomScheme,+                  ("iosFallbackLink" .=) <$> _iiIosFallbackLink])++-- | Information about a Dynamic Link.+--+-- /See:/ 'dynamicLinkInfo' smart constructor.+data DynamicLinkInfo = DynamicLinkInfo'+    { _dliNavigationInfo    :: !(Maybe NavigationInfo)+    , _dliDesktopInfo       :: !(Maybe DesktopInfo)+    , _dliSocialMetaTagInfo :: !(Maybe SocialMetaTagInfo)+    , _dliDynamicLinkDomain :: !(Maybe Text)+    , _dliLink              :: !(Maybe Text)+    , _dliIosInfo           :: !(Maybe IosInfo)+    , _dliDomainURIPrefix   :: !(Maybe Text)+    , _dliAndroidInfo       :: !(Maybe AndroidInfo)+    , _dliAnalyticsInfo     :: !(Maybe AnalyticsInfo)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'DynamicLinkInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dliNavigationInfo'+--+-- * 'dliDesktopInfo'+--+-- * 'dliSocialMetaTagInfo'+--+-- * 'dliDynamicLinkDomain'+--+-- * 'dliLink'+--+-- * 'dliIosInfo'+--+-- * 'dliDomainURIPrefix'+--+-- * 'dliAndroidInfo'+--+-- * 'dliAnalyticsInfo'+dynamicLinkInfo+    :: DynamicLinkInfo+dynamicLinkInfo =+    DynamicLinkInfo'+    { _dliNavigationInfo = Nothing+    , _dliDesktopInfo = Nothing+    , _dliSocialMetaTagInfo = Nothing+    , _dliDynamicLinkDomain = Nothing+    , _dliLink = Nothing+    , _dliIosInfo = Nothing+    , _dliDomainURIPrefix = Nothing+    , _dliAndroidInfo = Nothing+    , _dliAnalyticsInfo = Nothing+    }++-- | Information of navigation behavior of a Firebase Dynamic Links.+dliNavigationInfo :: Lens' DynamicLinkInfo (Maybe NavigationInfo)+dliNavigationInfo+  = lens _dliNavigationInfo+      (\ s a -> s{_dliNavigationInfo = a})++-- | Desktop related information. See desktop related parameters in the+-- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/create-manually).+dliDesktopInfo :: Lens' DynamicLinkInfo (Maybe DesktopInfo)+dliDesktopInfo+  = lens _dliDesktopInfo+      (\ s a -> s{_dliDesktopInfo = a})++-- | Parameters for social meta tag params. Used to set meta tag data for+-- link previews on social sites.+dliSocialMetaTagInfo :: Lens' DynamicLinkInfo (Maybe SocialMetaTagInfo)+dliSocialMetaTagInfo+  = lens _dliSocialMetaTagInfo+      (\ s a -> s{_dliSocialMetaTagInfo = a})++-- | Dynamic Links domain that the project owns, e.g. abcd.app.goo.gl [Learn+-- more](https:\/\/firebase.google.com\/docs\/dynamic-links\/android\/receive)+-- on how to set up Dynamic Link domain associated with your Firebase+-- project. Required if missing domain_uri_prefix.+dliDynamicLinkDomain :: Lens' DynamicLinkInfo (Maybe Text)+dliDynamicLinkDomain+  = lens _dliDynamicLinkDomain+      (\ s a -> s{_dliDynamicLinkDomain = a})++-- | The link your app will open, You can specify any URL your app can+-- handle. This link must be a well-formatted URL, be properly URL-encoded,+-- and use the HTTP or HTTPS scheme. See \'link\' parameters in the+-- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/create-manually).+-- Required.+dliLink :: Lens' DynamicLinkInfo (Maybe Text)+dliLink = lens _dliLink (\ s a -> s{_dliLink = a})++-- | iOS related information. See iOS related parameters in the+-- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/create-manually).+dliIosInfo :: Lens' DynamicLinkInfo (Maybe IosInfo)+dliIosInfo+  = lens _dliIosInfo (\ s a -> s{_dliIosInfo = a})++-- | E.g. https:\/\/maps.app.goo.gl, https:\/\/maps.page.link,+-- https:\/\/g.co\/maps More examples can be found in description of+-- getNormalizedUriPrefix in+-- j\/c\/g\/firebase\/dynamiclinks\/uri\/DdlDomain.java Will fallback to+-- dynamic_link_domain is this field is missing+dliDomainURIPrefix :: Lens' DynamicLinkInfo (Maybe Text)+dliDomainURIPrefix+  = lens _dliDomainURIPrefix+      (\ s a -> s{_dliDomainURIPrefix = a})++-- | Android related information. See Android related parameters in the+-- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/create-manually).+dliAndroidInfo :: Lens' DynamicLinkInfo (Maybe AndroidInfo)+dliAndroidInfo+  = lens _dliAndroidInfo+      (\ s a -> s{_dliAndroidInfo = a})++-- | Parameters used for tracking. See all tracking parameters in the+-- [documentation](https:\/\/firebase.google.com\/docs\/dynamic-links\/create-manually).+dliAnalyticsInfo :: Lens' DynamicLinkInfo (Maybe AnalyticsInfo)+dliAnalyticsInfo+  = lens _dliAnalyticsInfo+      (\ s a -> s{_dliAnalyticsInfo = a})++instance FromJSON DynamicLinkInfo where+        parseJSON+          = withObject "DynamicLinkInfo"+              (\ o ->+                 DynamicLinkInfo' <$>+                   (o .:? "navigationInfo") <*> (o .:? "desktopInfo")+                     <*> (o .:? "socialMetaTagInfo")+                     <*> (o .:? "dynamicLinkDomain")+                     <*> (o .:? "link")+                     <*> (o .:? "iosInfo")+                     <*> (o .:? "domainUriPrefix")+                     <*> (o .:? "androidInfo")+                     <*> (o .:? "analyticsInfo"))++instance ToJSON DynamicLinkInfo where+        toJSON DynamicLinkInfo'{..}+          = object+              (catMaybes+                 [("navigationInfo" .=) <$> _dliNavigationInfo,+                  ("desktopInfo" .=) <$> _dliDesktopInfo,+                  ("socialMetaTagInfo" .=) <$> _dliSocialMetaTagInfo,+                  ("dynamicLinkDomain" .=) <$> _dliDynamicLinkDomain,+                  ("link" .=) <$> _dliLink,+                  ("iosInfo" .=) <$> _dliIosInfo,+                  ("domainUriPrefix" .=) <$> _dliDomainURIPrefix,+                  ("androidInfo" .=) <$> _dliAndroidInfo,+                  ("analyticsInfo" .=) <$> _dliAnalyticsInfo])++-- | Analytics stats of a Dynamic Link for a given timeframe.+--+-- /See:/ 'dynamicLinkStats' smart constructor.+newtype DynamicLinkStats = DynamicLinkStats'+    { _dlsLinkEventStats :: Maybe [DynamicLinkEventStat]+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'DynamicLinkStats' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlsLinkEventStats'+dynamicLinkStats+    :: DynamicLinkStats+dynamicLinkStats =+    DynamicLinkStats'+    { _dlsLinkEventStats = Nothing+    }++-- | Dynamic Link event stats.+dlsLinkEventStats :: Lens' DynamicLinkStats [DynamicLinkEventStat]+dlsLinkEventStats+  = lens _dlsLinkEventStats+      (\ s a -> s{_dlsLinkEventStats = a})+      . _Default+      . _Coerce++instance FromJSON DynamicLinkStats where+        parseJSON+          = withObject "DynamicLinkStats"+              (\ o ->+                 DynamicLinkStats' <$>+                   (o .:? "linkEventStats" .!= mempty))++instance ToJSON DynamicLinkStats where+        toJSON DynamicLinkStats'{..}+          = object+              (catMaybes+                 [("linkEventStats" .=) <$> _dlsLinkEventStats])++-- | Request to create a managed Short Dynamic Link.+--+-- /See:/ 'createManagedShortLinkRequest' smart constructor.+data CreateManagedShortLinkRequest = CreateManagedShortLinkRequest'+    { _cmslrLongDynamicLink :: !(Maybe Text)+    , _cmslrSuffix          :: !(Maybe Suffix)+    , _cmslrDynamicLinkInfo :: !(Maybe DynamicLinkInfo)+    , _cmslrSdkVersion      :: !(Maybe Text)+    , _cmslrName            :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateManagedShortLinkRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmslrLongDynamicLink'+--+-- * 'cmslrSuffix'+--+-- * 'cmslrDynamicLinkInfo'+--+-- * 'cmslrSdkVersion'+--+-- * 'cmslrName'+createManagedShortLinkRequest+    :: CreateManagedShortLinkRequest+createManagedShortLinkRequest =+    CreateManagedShortLinkRequest'+    { _cmslrLongDynamicLink = Nothing+    , _cmslrSuffix = Nothing+    , _cmslrDynamicLinkInfo = Nothing+    , _cmslrSdkVersion = Nothing+    , _cmslrName = Nothing+    }++-- | Full long Dynamic Link URL with desired query parameters specified. For+-- example,+-- \"https:\/\/sample.app.goo.gl\/?link=http:\/\/www.google.com&apn=com.sample\",+-- [Learn+-- more](https:\/\/firebase.google.com\/docs\/reference\/dynamic-links\/link-shortener).+cmslrLongDynamicLink :: Lens' CreateManagedShortLinkRequest (Maybe Text)+cmslrLongDynamicLink+  = lens _cmslrLongDynamicLink+      (\ s a -> s{_cmslrLongDynamicLink = a})++-- | Short Dynamic Link suffix. Optional.+cmslrSuffix :: Lens' CreateManagedShortLinkRequest (Maybe Suffix)+cmslrSuffix+  = lens _cmslrSuffix (\ s a -> s{_cmslrSuffix = a})++-- | Information about the Dynamic Link to be shortened. [Learn+-- more](https:\/\/firebase.google.com\/docs\/reference\/dynamic-links\/link-shortener).+cmslrDynamicLinkInfo :: Lens' CreateManagedShortLinkRequest (Maybe DynamicLinkInfo)+cmslrDynamicLinkInfo+  = lens _cmslrDynamicLinkInfo+      (\ s a -> s{_cmslrDynamicLinkInfo = a})++-- | Google SDK version. Version takes the form+-- \"/m//a//j//o//r/.minor.$patch\"+cmslrSdkVersion :: Lens' CreateManagedShortLinkRequest (Maybe Text)+cmslrSdkVersion+  = lens _cmslrSdkVersion+      (\ s a -> s{_cmslrSdkVersion = a})++-- | Link name to associate with the link. It\'s used for marketer to+-- identify manually-created links in the Firebase console+-- (https:\/\/console.firebase.google.com\/). Links must be named to be+-- tracked.+cmslrName :: Lens' CreateManagedShortLinkRequest (Maybe Text)+cmslrName+  = lens _cmslrName (\ s a -> s{_cmslrName = a})++instance FromJSON CreateManagedShortLinkRequest where+        parseJSON+          = withObject "CreateManagedShortLinkRequest"+              (\ o ->+                 CreateManagedShortLinkRequest' <$>+                   (o .:? "longDynamicLink") <*> (o .:? "suffix") <*>+                     (o .:? "dynamicLinkInfo")+                     <*> (o .:? "sdkVersion")+                     <*> (o .:? "name"))++instance ToJSON CreateManagedShortLinkRequest where+        toJSON CreateManagedShortLinkRequest'{..}+          = object+              (catMaybes+                 [("longDynamicLink" .=) <$> _cmslrLongDynamicLink,+                  ("suffix" .=) <$> _cmslrSuffix,+                  ("dynamicLinkInfo" .=) <$> _cmslrDynamicLinkInfo,+                  ("sdkVersion" .=) <$> _cmslrSdkVersion,+                  ("name" .=) <$> _cmslrName])++-- | Response for iSDK to get reopen attribution for app universal link open+-- deeplinking. This endpoint is meant for only iOS requests.+--+-- /See:/ 'getIosReopenAttributionResponse' smart constructor.+data GetIosReopenAttributionResponse = GetIosReopenAttributionResponse'+    { _girarIosMinAppVersion :: !(Maybe Text)+    , _girarDeepLink         :: !(Maybe Text)+    , _girarResolvedLink     :: !(Maybe Text)+    , _girarUtmMedium        :: !(Maybe Text)+    , _girarInvitationId     :: !(Maybe Text)+    , _girarUtmCampaign      :: !(Maybe Text)+    , _girarUtmSource        :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetIosReopenAttributionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'girarIosMinAppVersion'+--+-- * 'girarDeepLink'+--+-- * 'girarResolvedLink'+--+-- * 'girarUtmMedium'+--+-- * 'girarInvitationId'+--+-- * 'girarUtmCampaign'+--+-- * 'girarUtmSource'+getIosReopenAttributionResponse+    :: GetIosReopenAttributionResponse+getIosReopenAttributionResponse =+    GetIosReopenAttributionResponse'+    { _girarIosMinAppVersion = Nothing+    , _girarDeepLink = Nothing+    , _girarResolvedLink = Nothing+    , _girarUtmMedium = Nothing+    , _girarInvitationId = Nothing+    , _girarUtmCampaign = Nothing+    , _girarUtmSource = Nothing+    }++-- | FDL input value of the \"&imv=\" parameter, minimum app version to be+-- returned to Google Firebase SDK running on iOS-9.+girarIosMinAppVersion :: Lens' GetIosReopenAttributionResponse (Maybe Text)+girarIosMinAppVersion+  = lens _girarIosMinAppVersion+      (\ s a -> s{_girarIosMinAppVersion = a})++-- | The deep-link attributed the app universal link open. For both regular+-- FDL links and invite FDL links.+girarDeepLink :: Lens' GetIosReopenAttributionResponse (Maybe Text)+girarDeepLink+  = lens _girarDeepLink+      (\ s a -> s{_girarDeepLink = a})++-- | The entire FDL, expanded from a short link. It is the same as the+-- requested_link, if it is long.+girarResolvedLink :: Lens' GetIosReopenAttributionResponse (Maybe Text)+girarResolvedLink+  = lens _girarResolvedLink+      (\ s a -> s{_girarResolvedLink = a})++-- | Scion medium value to be propagated by iSDK to Scion at app-reopen.+girarUtmMedium :: Lens' GetIosReopenAttributionResponse (Maybe Text)+girarUtmMedium+  = lens _girarUtmMedium+      (\ s a -> s{_girarUtmMedium = a})++-- | Optional invitation ID, for only invite typed requested FDL links.+girarInvitationId :: Lens' GetIosReopenAttributionResponse (Maybe Text)+girarInvitationId+  = lens _girarInvitationId+      (\ s a -> s{_girarInvitationId = a})++-- | Scion campaign value to be propagated by iSDK to Scion at app-reopen.+girarUtmCampaign :: Lens' GetIosReopenAttributionResponse (Maybe Text)+girarUtmCampaign+  = lens _girarUtmCampaign+      (\ s a -> s{_girarUtmCampaign = a})++-- | Scion source value to be propagated by iSDK to Scion at app-reopen.+girarUtmSource :: Lens' GetIosReopenAttributionResponse (Maybe Text)+girarUtmSource+  = lens _girarUtmSource+      (\ s a -> s{_girarUtmSource = a})++instance FromJSON GetIosReopenAttributionResponse+         where+        parseJSON+          = withObject "GetIosReopenAttributionResponse"+              (\ o ->+                 GetIosReopenAttributionResponse' <$>+                   (o .:? "iosMinAppVersion") <*> (o .:? "deepLink") <*>+                     (o .:? "resolvedLink")+                     <*> (o .:? "utmMedium")+                     <*> (o .:? "invitationId")+                     <*> (o .:? "utmCampaign")+                     <*> (o .:? "utmSource"))++instance ToJSON GetIosReopenAttributionResponse where+        toJSON GetIosReopenAttributionResponse'{..}+          = object+              (catMaybes+                 [("iosMinAppVersion" .=) <$> _girarIosMinAppVersion,+                  ("deepLink" .=) <$> _girarDeepLink,+                  ("resolvedLink" .=) <$> _girarResolvedLink,+                  ("utmMedium" .=) <$> _girarUtmMedium,+                  ("invitationId" .=) <$> _girarInvitationId,+                  ("utmCampaign" .=) <$> _girarUtmCampaign,+                  ("utmSource" .=) <$> _girarUtmSource])++-- | Request for iSDK to execute strong match flow for post-install+-- attribution. This is meant for iOS requests only. Requests from other+-- platforms will not be honored.+--+-- /See:/ 'getIosPostInstallAttributionRequest' smart constructor.+data GetIosPostInstallAttributionRequest = GetIosPostInstallAttributionRequest'+    { _gipiarIosVersion             :: !(Maybe Text)+    , _gipiarUniqueMatchLinkToCheck :: !(Maybe Text)+    , _gipiarAppInstallationTime    :: !(Maybe (Textual Int64))+    , _gipiarDevice                 :: !(Maybe DeviceInfo)+    , _gipiarSdkVersion             :: !(Maybe Text)+    , _gipiarBundleId               :: !(Maybe Text)+    , _gipiarRetrievalMethod        :: !(Maybe GetIosPostInstallAttributionRequestRetrievalMethod)+    , _gipiarVisualStyle            :: !(Maybe GetIosPostInstallAttributionRequestVisualStyle)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetIosPostInstallAttributionRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gipiarIosVersion'+--+-- * 'gipiarUniqueMatchLinkToCheck'+--+-- * 'gipiarAppInstallationTime'+--+-- * 'gipiarDevice'+--+-- * 'gipiarSdkVersion'+--+-- * 'gipiarBundleId'+--+-- * 'gipiarRetrievalMethod'+--+-- * 'gipiarVisualStyle'+getIosPostInstallAttributionRequest+    :: GetIosPostInstallAttributionRequest+getIosPostInstallAttributionRequest =+    GetIosPostInstallAttributionRequest'+    { _gipiarIosVersion = Nothing+    , _gipiarUniqueMatchLinkToCheck = Nothing+    , _gipiarAppInstallationTime = Nothing+    , _gipiarDevice = Nothing+    , _gipiarSdkVersion = Nothing+    , _gipiarBundleId = Nothing+    , _gipiarRetrievalMethod = Nothing+    , _gipiarVisualStyle = Nothing+    }++-- | iOS version, ie: 9.3.5. Consider adding \"build\".+gipiarIosVersion :: Lens' GetIosPostInstallAttributionRequest (Maybe Text)+gipiarIosVersion+  = lens _gipiarIosVersion+      (\ s a -> s{_gipiarIosVersion = a})++-- | Possible unique matched link that server need to check before performing+-- fingerprint match. If passed link is short server need to expand the+-- link. If link is long server need to vslidate the link.+gipiarUniqueMatchLinkToCheck :: Lens' GetIosPostInstallAttributionRequest (Maybe Text)+gipiarUniqueMatchLinkToCheck+  = lens _gipiarUniqueMatchLinkToCheck+      (\ s a -> s{_gipiarUniqueMatchLinkToCheck = a})++-- | App installation epoch time+-- (https:\/\/en.wikipedia.org\/wiki\/Unix_time). This is a client signal+-- for a more accurate weak match.+gipiarAppInstallationTime :: Lens' GetIosPostInstallAttributionRequest (Maybe Int64)+gipiarAppInstallationTime+  = lens _gipiarAppInstallationTime+      (\ s a -> s{_gipiarAppInstallationTime = a})+      . mapping _Coerce++-- | Device information.+gipiarDevice :: Lens' GetIosPostInstallAttributionRequest (Maybe DeviceInfo)+gipiarDevice+  = lens _gipiarDevice (\ s a -> s{_gipiarDevice = a})++-- | Google SDK version. Version takes the form+-- \"/m//a//j//o//r/.minor.$patch\"+gipiarSdkVersion :: Lens' GetIosPostInstallAttributionRequest (Maybe Text)+gipiarSdkVersion+  = lens _gipiarSdkVersion+      (\ s a -> s{_gipiarSdkVersion = a})++-- | APP bundle ID.+gipiarBundleId :: Lens' GetIosPostInstallAttributionRequest (Maybe Text)+gipiarBundleId+  = lens _gipiarBundleId+      (\ s a -> s{_gipiarBundleId = a})++-- | App post install attribution retrieval information. Disambiguates+-- mechanism (iSDK or developer invoked) to retrieve payload from clicked+-- link.+gipiarRetrievalMethod :: Lens' GetIosPostInstallAttributionRequest (Maybe GetIosPostInstallAttributionRequestRetrievalMethod)+gipiarRetrievalMethod+  = lens _gipiarRetrievalMethod+      (\ s a -> s{_gipiarRetrievalMethod = a})++-- | Strong match page information. Disambiguates between default UI and+-- custom page to present when strong match succeeds\/fails to find cookie.+gipiarVisualStyle :: Lens' GetIosPostInstallAttributionRequest (Maybe GetIosPostInstallAttributionRequestVisualStyle)+gipiarVisualStyle+  = lens _gipiarVisualStyle+      (\ s a -> s{_gipiarVisualStyle = a})++instance FromJSON GetIosPostInstallAttributionRequest+         where+        parseJSON+          = withObject "GetIosPostInstallAttributionRequest"+              (\ o ->+                 GetIosPostInstallAttributionRequest' <$>+                   (o .:? "iosVersion") <*>+                     (o .:? "uniqueMatchLinkToCheck")+                     <*> (o .:? "appInstallationTime")+                     <*> (o .:? "device")+                     <*> (o .:? "sdkVersion")+                     <*> (o .:? "bundleId")+                     <*> (o .:? "retrievalMethod")+                     <*> (o .:? "visualStyle"))++instance ToJSON GetIosPostInstallAttributionRequest+         where+        toJSON GetIosPostInstallAttributionRequest'{..}+          = object+              (catMaybes+                 [("iosVersion" .=) <$> _gipiarIosVersion,+                  ("uniqueMatchLinkToCheck" .=) <$>+                    _gipiarUniqueMatchLinkToCheck,+                  ("appInstallationTime" .=) <$>+                    _gipiarAppInstallationTime,+                  ("device" .=) <$> _gipiarDevice,+                  ("sdkVersion" .=) <$> _gipiarSdkVersion,+                  ("bundleId" .=) <$> _gipiarBundleId,+                  ("retrievalMethod" .=) <$> _gipiarRetrievalMethod,+                  ("visualStyle" .=) <$> _gipiarVisualStyle])++-- | Android related attributes to the Dynamic Link.+--+-- /See:/ 'androidInfo' smart constructor.+data AndroidInfo = AndroidInfo'+    { _aiAndroidMinPackageVersionCode :: !(Maybe Text)+    , _aiAndroidFallbackLink          :: !(Maybe Text)+    , _aiAndroidLink                  :: !(Maybe Text)+    , _aiAndroidPackageName           :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'AndroidInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aiAndroidMinPackageVersionCode'+--+-- * 'aiAndroidFallbackLink'+--+-- * 'aiAndroidLink'+--+-- * 'aiAndroidPackageName'+androidInfo+    :: AndroidInfo+androidInfo =+    AndroidInfo'+    { _aiAndroidMinPackageVersionCode = Nothing+    , _aiAndroidFallbackLink = Nothing+    , _aiAndroidLink = Nothing+    , _aiAndroidPackageName = Nothing+    }++-- | Minimum version code for the Android app. If the installed app’s version+-- code is lower, then the user is taken to the Play Store.+aiAndroidMinPackageVersionCode :: Lens' AndroidInfo (Maybe Text)+aiAndroidMinPackageVersionCode+  = lens _aiAndroidMinPackageVersionCode+      (\ s a -> s{_aiAndroidMinPackageVersionCode = a})++-- | Link to open on Android if the app is not installed.+aiAndroidFallbackLink :: Lens' AndroidInfo (Maybe Text)+aiAndroidFallbackLink+  = lens _aiAndroidFallbackLink+      (\ s a -> s{_aiAndroidFallbackLink = a})++-- | If specified, this overrides the ‘link’ parameter on Android.+aiAndroidLink :: Lens' AndroidInfo (Maybe Text)+aiAndroidLink+  = lens _aiAndroidLink+      (\ s a -> s{_aiAndroidLink = a})++-- | Android package name of the app.+aiAndroidPackageName :: Lens' AndroidInfo (Maybe Text)+aiAndroidPackageName+  = lens _aiAndroidPackageName+      (\ s a -> s{_aiAndroidPackageName = a})++instance FromJSON AndroidInfo where+        parseJSON+          = withObject "AndroidInfo"+              (\ o ->+                 AndroidInfo' <$>+                   (o .:? "androidMinPackageVersionCode") <*>+                     (o .:? "androidFallbackLink")+                     <*> (o .:? "androidLink")+                     <*> (o .:? "androidPackageName"))++instance ToJSON AndroidInfo where+        toJSON AndroidInfo'{..}+          = object+              (catMaybes+                 [("androidMinPackageVersionCode" .=) <$>+                    _aiAndroidMinPackageVersionCode,+                  ("androidFallbackLink" .=) <$>+                    _aiAndroidFallbackLink,+                  ("androidLink" .=) <$> _aiAndroidLink,+                  ("androidPackageName" .=) <$> _aiAndroidPackageName])++-- | Tracking parameters supported by Dynamic Link.+--+-- /See:/ 'analyticsInfo' smart constructor.+data AnalyticsInfo = AnalyticsInfo'+    { _aiItunesConnectAnalytics :: !(Maybe ITunesConnectAnalytics)+    , _aiGooglePlayAnalytics    :: !(Maybe GooglePlayAnalytics)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'AnalyticsInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aiItunesConnectAnalytics'+--+-- * 'aiGooglePlayAnalytics'+analyticsInfo+    :: AnalyticsInfo+analyticsInfo =+    AnalyticsInfo'+    { _aiItunesConnectAnalytics = Nothing+    , _aiGooglePlayAnalytics = Nothing+    }++-- | iTunes Connect App Analytics.+aiItunesConnectAnalytics :: Lens' AnalyticsInfo (Maybe ITunesConnectAnalytics)+aiItunesConnectAnalytics+  = lens _aiItunesConnectAnalytics+      (\ s a -> s{_aiItunesConnectAnalytics = a})++-- | Google Play Campaign Measurements.+aiGooglePlayAnalytics :: Lens' AnalyticsInfo (Maybe GooglePlayAnalytics)+aiGooglePlayAnalytics+  = lens _aiGooglePlayAnalytics+      (\ s a -> s{_aiGooglePlayAnalytics = a})++instance FromJSON AnalyticsInfo where+        parseJSON+          = withObject "AnalyticsInfo"+              (\ o ->+                 AnalyticsInfo' <$>+                   (o .:? "itunesConnectAnalytics") <*>+                     (o .:? "googlePlayAnalytics"))++instance ToJSON AnalyticsInfo where+        toJSON AnalyticsInfo'{..}+          = object+              (catMaybes+                 [("itunesConnectAnalytics" .=) <$>+                    _aiItunesConnectAnalytics,+                  ("googlePlayAnalytics" .=) <$>+                    _aiGooglePlayAnalytics])++-- | Parameters for iTunes Connect App Analytics.+--+-- /See:/ 'iTunesConnectAnalytics' smart constructor.+data ITunesConnectAnalytics = ITunesConnectAnalytics'+    { _itcaAt :: !(Maybe Text)+    , _itcaMt :: !(Maybe Text)+    , _itcaPt :: !(Maybe Text)+    , _itcaCt :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ITunesConnectAnalytics' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'itcaAt'+--+-- * 'itcaMt'+--+-- * 'itcaPt'+--+-- * 'itcaCt'+iTunesConnectAnalytics+    :: ITunesConnectAnalytics+iTunesConnectAnalytics =+    ITunesConnectAnalytics'+    { _itcaAt = Nothing+    , _itcaMt = Nothing+    , _itcaPt = Nothing+    , _itcaCt = Nothing+    }++-- | Affiliate token used to create affiliate-coded links.+itcaAt :: Lens' ITunesConnectAnalytics (Maybe Text)+itcaAt = lens _itcaAt (\ s a -> s{_itcaAt = a})++-- | iTune media types, including music, podcasts, audiobooks and so on.+itcaMt :: Lens' ITunesConnectAnalytics (Maybe Text)+itcaMt = lens _itcaMt (\ s a -> s{_itcaMt = a})++-- | Provider token that enables analytics for Dynamic Links from within+-- iTunes Connect.+itcaPt :: Lens' ITunesConnectAnalytics (Maybe Text)+itcaPt = lens _itcaPt (\ s a -> s{_itcaPt = a})++-- | Campaign text that developers can optionally add to any link in order to+-- track sales from a specific marketing campaign.+itcaCt :: Lens' ITunesConnectAnalytics (Maybe Text)+itcaCt = lens _itcaCt (\ s a -> s{_itcaCt = a})++instance FromJSON ITunesConnectAnalytics where+        parseJSON+          = withObject "ITunesConnectAnalytics"+              (\ o ->+                 ITunesConnectAnalytics' <$>+                   (o .:? "at") <*> (o .:? "mt") <*> (o .:? "pt") <*>+                     (o .:? "ct"))++instance ToJSON ITunesConnectAnalytics where+        toJSON ITunesConnectAnalytics'{..}+          = object+              (catMaybes+                 [("at" .=) <$> _itcaAt, ("mt" .=) <$> _itcaMt,+                  ("pt" .=) <$> _itcaPt, ("ct" .=) <$> _itcaCt])++-- | Response for iSDK to execute strong match flow for post-install+-- attribution.+--+-- /See:/ 'getIosPostInstallAttributionResponse' smart constructor.+data GetIosPostInstallAttributionResponse = GetIosPostInstallAttributionResponse'+    { _gipiarDeepLink                       :: !(Maybe Text)+    , _gipiarRequestIPVersion               :: !(Maybe GetIosPostInstallAttributionResponseRequestIPVersion)+    , _gipiarAppMinimumVersion              :: !(Maybe Text)+    , _gipiarAttributionConfidence          :: !(Maybe GetIosPostInstallAttributionResponseAttributionConfidence)+    , _gipiarExternalBrowserDestinationLink :: !(Maybe Text)+    , _gipiarResolvedLink                   :: !(Maybe Text)+    , _gipiarRequestedLink                  :: !(Maybe Text)+    , _gipiarUtmMedium                      :: !(Maybe Text)+    , _gipiarFallbackLink                   :: !(Maybe Text)+    , _gipiarInvitationId                   :: !(Maybe Text)+    , _gipiarIsStrongMatchExecutable        :: !(Maybe Bool)+    , _gipiarUtmCampaign                    :: !(Maybe Text)+    , _gipiarMatchMessage                   :: !(Maybe Text)+    , _gipiarUtmSource                      :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetIosPostInstallAttributionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gipiarDeepLink'+--+-- * 'gipiarRequestIPVersion'+--+-- * 'gipiarAppMinimumVersion'+--+-- * 'gipiarAttributionConfidence'+--+-- * 'gipiarExternalBrowserDestinationLink'+--+-- * 'gipiarResolvedLink'+--+-- * 'gipiarRequestedLink'+--+-- * 'gipiarUtmMedium'+--+-- * 'gipiarFallbackLink'+--+-- * 'gipiarInvitationId'+--+-- * 'gipiarIsStrongMatchExecutable'+--+-- * 'gipiarUtmCampaign'+--+-- * 'gipiarMatchMessage'+--+-- * 'gipiarUtmSource'+getIosPostInstallAttributionResponse+    :: GetIosPostInstallAttributionResponse+getIosPostInstallAttributionResponse =+    GetIosPostInstallAttributionResponse'+    { _gipiarDeepLink = Nothing+    , _gipiarRequestIPVersion = Nothing+    , _gipiarAppMinimumVersion = Nothing+    , _gipiarAttributionConfidence = Nothing+    , _gipiarExternalBrowserDestinationLink = Nothing+    , _gipiarResolvedLink = Nothing+    , _gipiarRequestedLink = Nothing+    , _gipiarUtmMedium = Nothing+    , _gipiarFallbackLink = Nothing+    , _gipiarInvitationId = Nothing+    , _gipiarIsStrongMatchExecutable = Nothing+    , _gipiarUtmCampaign = Nothing+    , _gipiarMatchMessage = Nothing+    , _gipiarUtmSource = Nothing+    }++-- | The deep-link attributed post-install via one of several techniques+-- (fingerprint, copy unique).+gipiarDeepLink :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarDeepLink+  = lens _gipiarDeepLink+      (\ s a -> s{_gipiarDeepLink = a})++-- | Which IP version the request was made from.+gipiarRequestIPVersion :: Lens' GetIosPostInstallAttributionResponse (Maybe GetIosPostInstallAttributionResponseRequestIPVersion)+gipiarRequestIPVersion+  = lens _gipiarRequestIPVersion+      (\ s a -> s{_gipiarRequestIPVersion = a})++-- | The minimum version for app, specified by dev through ?imv= parameter.+-- Return to iSDK to allow app to evaluate if current version meets this.+gipiarAppMinimumVersion :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarAppMinimumVersion+  = lens _gipiarAppMinimumVersion+      (\ s a -> s{_gipiarAppMinimumVersion = a})++-- | The confidence of the returned attribution.+gipiarAttributionConfidence :: Lens' GetIosPostInstallAttributionResponse (Maybe GetIosPostInstallAttributionResponseAttributionConfidence)+gipiarAttributionConfidence+  = lens _gipiarAttributionConfidence+      (\ s a -> s{_gipiarAttributionConfidence = a})++-- | User-agent specific custom-scheme URIs for iSDK to open. This will be+-- set according to the user-agent tha the click was originally made in.+-- There is no Safari-equivalent custom-scheme open URLs. ie:+-- googlechrome:\/\/www.example.com ie:+-- firefox:\/\/open-url?url=http:\/\/www.example.com ie:+-- opera-http:\/\/example.com+gipiarExternalBrowserDestinationLink :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarExternalBrowserDestinationLink+  = lens _gipiarExternalBrowserDestinationLink+      (\ s a ->+         s{_gipiarExternalBrowserDestinationLink = a})++-- | The entire FDL, expanded from a short link. It is the same as the+-- requested_link, if it is long. Parameters from this should not be used+-- directly (ie: server can default utm_[campaign|medium|source] to a value+-- when requested_link lack them, server determine the best fallback_link+-- when requested_link specifies >1 fallback links).+gipiarResolvedLink :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarResolvedLink+  = lens _gipiarResolvedLink+      (\ s a -> s{_gipiarResolvedLink = a})++-- | Entire FDL (short or long) attributed post-install via one of several+-- techniques (fingerprint, copy unique).+gipiarRequestedLink :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarRequestedLink+  = lens _gipiarRequestedLink+      (\ s a -> s{_gipiarRequestedLink = a})++-- | Scion medium value to be propagated by iSDK to Scion at post-install.+gipiarUtmMedium :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarUtmMedium+  = lens _gipiarUtmMedium+      (\ s a -> s{_gipiarUtmMedium = a})++-- | The link to navigate to update the app if min version is not met. This+-- is either (in order): 1) fallback link (from ?ifl= parameter, if+-- specified by developer) or 2) AppStore URL (from ?isi= parameter, if+-- specified), or 3) the payload link (from required link= parameter).+gipiarFallbackLink :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarFallbackLink+  = lens _gipiarFallbackLink+      (\ s a -> s{_gipiarFallbackLink = a})++-- | Invitation ID attributed post-install via one of several techniques+-- (fingerprint, copy unique).+gipiarInvitationId :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarInvitationId+  = lens _gipiarInvitationId+      (\ s a -> s{_gipiarInvitationId = a})++-- | Instruction for iSDK to attemmpt to perform strong match. For instance,+-- if browser does not support\/allow cookie or outside of support+-- browsers, this will be false.+gipiarIsStrongMatchExecutable :: Lens' GetIosPostInstallAttributionResponse (Maybe Bool)+gipiarIsStrongMatchExecutable+  = lens _gipiarIsStrongMatchExecutable+      (\ s a -> s{_gipiarIsStrongMatchExecutable = a})++-- | Scion campaign value to be propagated by iSDK to Scion at post-install.+gipiarUtmCampaign :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarUtmCampaign+  = lens _gipiarUtmCampaign+      (\ s a -> s{_gipiarUtmCampaign = a})++-- | Describes why match failed, ie: \"discarded due to low confidence\".+-- This message will be publicly visible.+gipiarMatchMessage :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarMatchMessage+  = lens _gipiarMatchMessage+      (\ s a -> s{_gipiarMatchMessage = a})++-- | Scion source value to be propagated by iSDK to Scion at post-install.+gipiarUtmSource :: Lens' GetIosPostInstallAttributionResponse (Maybe Text)+gipiarUtmSource+  = lens _gipiarUtmSource+      (\ s a -> s{_gipiarUtmSource = a})++instance FromJSON+         GetIosPostInstallAttributionResponse where+        parseJSON+          = withObject "GetIosPostInstallAttributionResponse"+              (\ o ->+                 GetIosPostInstallAttributionResponse' <$>+                   (o .:? "deepLink") <*> (o .:? "requestIpVersion") <*>+                     (o .:? "appMinimumVersion")+                     <*> (o .:? "attributionConfidence")+                     <*> (o .:? "externalBrowserDestinationLink")+                     <*> (o .:? "resolvedLink")+                     <*> (o .:? "requestedLink")+                     <*> (o .:? "utmMedium")+                     <*> (o .:? "fallbackLink")+                     <*> (o .:? "invitationId")+                     <*> (o .:? "isStrongMatchExecutable")+                     <*> (o .:? "utmCampaign")+                     <*> (o .:? "matchMessage")+                     <*> (o .:? "utmSource"))++instance ToJSON GetIosPostInstallAttributionResponse+         where+        toJSON GetIosPostInstallAttributionResponse'{..}+          = object+              (catMaybes+                 [("deepLink" .=) <$> _gipiarDeepLink,+                  ("requestIpVersion" .=) <$> _gipiarRequestIPVersion,+                  ("appMinimumVersion" .=) <$>+                    _gipiarAppMinimumVersion,+                  ("attributionConfidence" .=) <$>+                    _gipiarAttributionConfidence,+                  ("externalBrowserDestinationLink" .=) <$>+                    _gipiarExternalBrowserDestinationLink,+                  ("resolvedLink" .=) <$> _gipiarResolvedLink,+                  ("requestedLink" .=) <$> _gipiarRequestedLink,+                  ("utmMedium" .=) <$> _gipiarUtmMedium,+                  ("fallbackLink" .=) <$> _gipiarFallbackLink,+                  ("invitationId" .=) <$> _gipiarInvitationId,+                  ("isStrongMatchExecutable" .=) <$>+                    _gipiarIsStrongMatchExecutable,+                  ("utmCampaign" .=) <$> _gipiarUtmCampaign,+                  ("matchMessage" .=) <$> _gipiarMatchMessage,+                  ("utmSource" .=) <$> _gipiarUtmSource])++-- | Response to create a short Dynamic Link.+--+-- /See:/ 'createManagedShortLinkResponse' smart constructor.+data CreateManagedShortLinkResponse = CreateManagedShortLinkResponse'+    { _cmslrManagedShortLink :: !(Maybe ManagedShortLink)+    , _cmslrPreviewLink      :: !(Maybe Text)+    , _cmslrWarning          :: !(Maybe [DynamicLinkWarning])+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateManagedShortLinkResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmslrManagedShortLink'+--+-- * 'cmslrPreviewLink'+--+-- * 'cmslrWarning'+createManagedShortLinkResponse+    :: CreateManagedShortLinkResponse+createManagedShortLinkResponse =+    CreateManagedShortLinkResponse'+    { _cmslrManagedShortLink = Nothing+    , _cmslrPreviewLink = Nothing+    , _cmslrWarning = Nothing+    }++-- | Short Dynamic Link value. e.g. https:\/\/abcd.app.goo.gl\/wxyz+cmslrManagedShortLink :: Lens' CreateManagedShortLinkResponse (Maybe ManagedShortLink)+cmslrManagedShortLink+  = lens _cmslrManagedShortLink+      (\ s a -> s{_cmslrManagedShortLink = a})++-- | Preview link to show the link flow chart. (debug info.)+cmslrPreviewLink :: Lens' CreateManagedShortLinkResponse (Maybe Text)+cmslrPreviewLink+  = lens _cmslrPreviewLink+      (\ s a -> s{_cmslrPreviewLink = a})++-- | Information about potential warnings on link creation.+cmslrWarning :: Lens' CreateManagedShortLinkResponse [DynamicLinkWarning]+cmslrWarning+  = lens _cmslrWarning (\ s a -> s{_cmslrWarning = a})+      . _Default+      . _Coerce++instance FromJSON CreateManagedShortLinkResponse+         where+        parseJSON+          = withObject "CreateManagedShortLinkResponse"+              (\ o ->+                 CreateManagedShortLinkResponse' <$>+                   (o .:? "managedShortLink") <*> (o .:? "previewLink")+                     <*> (o .:? "warning" .!= mempty))++instance ToJSON CreateManagedShortLinkResponse where+        toJSON CreateManagedShortLinkResponse'{..}+          = object+              (catMaybes+                 [("managedShortLink" .=) <$> _cmslrManagedShortLink,+                  ("previewLink" .=) <$> _cmslrPreviewLink,+                  ("warning" .=) <$> _cmslrWarning])++-- | Request for iSDK to get reopen attribution for app universal link open+-- deeplinking. This endpoint is meant for only iOS requests.+--+-- /See:/ 'getIosReopenAttributionRequest' smart constructor.+data GetIosReopenAttributionRequest = GetIosReopenAttributionRequest'+    { _girarRequestedLink :: !(Maybe Text)+    , _girarSdkVersion    :: !(Maybe Text)+    , _girarBundleId      :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetIosReopenAttributionRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'girarRequestedLink'+--+-- * 'girarSdkVersion'+--+-- * 'girarBundleId'+getIosReopenAttributionRequest+    :: GetIosReopenAttributionRequest+getIosReopenAttributionRequest =+    GetIosReopenAttributionRequest'+    { _girarRequestedLink = Nothing+    , _girarSdkVersion = Nothing+    , _girarBundleId = Nothing+    }++-- | FDL link to be verified from an app universal link open. The FDL link+-- can be one of: 1) short FDL. e.g. .page.link\/, or 2) long FDL. e.g.+-- .page.link\/?{query params}, or 3) Invite FDL. e.g. .page.link\/i\/+girarRequestedLink :: Lens' GetIosReopenAttributionRequest (Maybe Text)+girarRequestedLink+  = lens _girarRequestedLink+      (\ s a -> s{_girarRequestedLink = a})++-- | Google SDK version. Version takes the form+-- \"/m//a//j//o//r/.minor.$patch\"+girarSdkVersion :: Lens' GetIosReopenAttributionRequest (Maybe Text)+girarSdkVersion+  = lens _girarSdkVersion+      (\ s a -> s{_girarSdkVersion = a})++-- | APP bundle ID.+girarBundleId :: Lens' GetIosReopenAttributionRequest (Maybe Text)+girarBundleId+  = lens _girarBundleId+      (\ s a -> s{_girarBundleId = a})++instance FromJSON GetIosReopenAttributionRequest+         where+        parseJSON+          = withObject "GetIosReopenAttributionRequest"+              (\ o ->+                 GetIosReopenAttributionRequest' <$>+                   (o .:? "requestedLink") <*> (o .:? "sdkVersion") <*>+                     (o .:? "bundleId"))++instance ToJSON GetIosReopenAttributionRequest where+        toJSON GetIosReopenAttributionRequest'{..}+          = object+              (catMaybes+                 [("requestedLink" .=) <$> _girarRequestedLink,+                  ("sdkVersion" .=) <$> _girarSdkVersion,+                  ("bundleId" .=) <$> _girarBundleId])++-- | Parameters for Google Play Campaign Measurements. [Learn+-- more](https:\/\/developers.google.com\/analytics\/devguides\/collection\/android\/v4\/campaigns#campaign-params)+--+-- /See:/ 'googlePlayAnalytics' smart constructor.+data GooglePlayAnalytics = GooglePlayAnalytics'+    { _gpaUtmContent  :: !(Maybe Text)+    , _gpaUtmMedium   :: !(Maybe Text)+    , _gpaUtmTerm     :: !(Maybe Text)+    , _gpaUtmCampaign :: !(Maybe Text)+    , _gpaGclid       :: !(Maybe Text)+    , _gpaUtmSource   :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'GooglePlayAnalytics' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gpaUtmContent'+--+-- * 'gpaUtmMedium'+--+-- * 'gpaUtmTerm'+--+-- * 'gpaUtmCampaign'+--+-- * 'gpaGclid'+--+-- * 'gpaUtmSource'+googlePlayAnalytics+    :: GooglePlayAnalytics+googlePlayAnalytics =+    GooglePlayAnalytics'+    { _gpaUtmContent = Nothing+    , _gpaUtmMedium = Nothing+    , _gpaUtmTerm = Nothing+    , _gpaUtmCampaign = Nothing+    , _gpaGclid = Nothing+    , _gpaUtmSource = Nothing+    }++-- | Campaign content; used for A\/B testing and content-targeted ads to+-- differentiate ads or links that point to the same URL.+gpaUtmContent :: Lens' GooglePlayAnalytics (Maybe Text)+gpaUtmContent+  = lens _gpaUtmContent+      (\ s a -> s{_gpaUtmContent = a})++-- | Campaign medium; used to identify a medium such as email or+-- cost-per-click.+gpaUtmMedium :: Lens' GooglePlayAnalytics (Maybe Text)+gpaUtmMedium+  = lens _gpaUtmMedium (\ s a -> s{_gpaUtmMedium = a})++-- | Campaign term; used with paid search to supply the keywords for ads.+gpaUtmTerm :: Lens' GooglePlayAnalytics (Maybe Text)+gpaUtmTerm+  = lens _gpaUtmTerm (\ s a -> s{_gpaUtmTerm = a})++-- | Campaign name; used for keyword analysis to identify a specific product+-- promotion or strategic campaign.+gpaUtmCampaign :: Lens' GooglePlayAnalytics (Maybe Text)+gpaUtmCampaign+  = lens _gpaUtmCampaign+      (\ s a -> s{_gpaUtmCampaign = a})++-- | [AdWords autotagging+-- parameter](https:\/\/support.google.com\/analytics\/answer\/1033981?hl=en);+-- used to measure Google AdWords ads. This value is generated dynamically+-- and should never be modified.+gpaGclid :: Lens' GooglePlayAnalytics (Maybe Text)+gpaGclid = lens _gpaGclid (\ s a -> s{_gpaGclid = a})++-- | Campaign source; used to identify a search engine, newsletter, or other+-- source.+gpaUtmSource :: Lens' GooglePlayAnalytics (Maybe Text)+gpaUtmSource+  = lens _gpaUtmSource (\ s a -> s{_gpaUtmSource = a})++instance FromJSON GooglePlayAnalytics where+        parseJSON+          = withObject "GooglePlayAnalytics"+              (\ o ->+                 GooglePlayAnalytics' <$>+                   (o .:? "utmContent") <*> (o .:? "utmMedium") <*>+                     (o .:? "utmTerm")+                     <*> (o .:? "utmCampaign")+                     <*> (o .:? "gclid")+                     <*> (o .:? "utmSource"))++instance ToJSON GooglePlayAnalytics where+        toJSON GooglePlayAnalytics'{..}+          = object+              (catMaybes+                 [("utmContent" .=) <$> _gpaUtmContent,+                  ("utmMedium" .=) <$> _gpaUtmMedium,+                  ("utmTerm" .=) <$> _gpaUtmTerm,+                  ("utmCampaign" .=) <$> _gpaUtmCampaign,+                  ("gclid" .=) <$> _gpaGclid,+                  ("utmSource" .=) <$> _gpaUtmSource])++-- | Signals associated with the device making the request.+--+-- /See:/ 'deviceInfo' smart constructor.+data DeviceInfo = DeviceInfo'+    { _diLanguageCodeFromWebview :: !(Maybe Text)+    , _diScreenResolutionWidth   :: !(Maybe (Textual Int64))+    , _diLanguageCode            :: !(Maybe Text)+    , _diDeviceModelName         :: !(Maybe Text)+    , _diScreenResolutionHeight  :: !(Maybe (Textual Int64))+    , _diLanguageCodeRaw         :: !(Maybe Text)+    , _diTimezone                :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeviceInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diLanguageCodeFromWebview'+--+-- * 'diScreenResolutionWidth'+--+-- * 'diLanguageCode'+--+-- * 'diDeviceModelName'+--+-- * 'diScreenResolutionHeight'+--+-- * 'diLanguageCodeRaw'+--+-- * 'diTimezone'+deviceInfo+    :: DeviceInfo+deviceInfo =+    DeviceInfo'+    { _diLanguageCodeFromWebview = Nothing+    , _diScreenResolutionWidth = Nothing+    , _diLanguageCode = Nothing+    , _diDeviceModelName = Nothing+    , _diScreenResolutionHeight = Nothing+    , _diLanguageCodeRaw = Nothing+    , _diTimezone = Nothing+    }++-- | Device language code setting obtained by executing JavaScript code in+-- WebView.+diLanguageCodeFromWebview :: Lens' DeviceInfo (Maybe Text)+diLanguageCodeFromWebview+  = lens _diLanguageCodeFromWebview+      (\ s a -> s{_diLanguageCodeFromWebview = a})++-- | Device display resolution width.+diScreenResolutionWidth :: Lens' DeviceInfo (Maybe Int64)+diScreenResolutionWidth+  = lens _diScreenResolutionWidth+      (\ s a -> s{_diScreenResolutionWidth = a})+      . mapping _Coerce++-- | Device language code setting.+diLanguageCode :: Lens' DeviceInfo (Maybe Text)+diLanguageCode+  = lens _diLanguageCode+      (\ s a -> s{_diLanguageCode = a})++-- | Device model name.+diDeviceModelName :: Lens' DeviceInfo (Maybe Text)+diDeviceModelName+  = lens _diDeviceModelName+      (\ s a -> s{_diDeviceModelName = a})++-- | Device display resolution height.+diScreenResolutionHeight :: Lens' DeviceInfo (Maybe Int64)+diScreenResolutionHeight+  = lens _diScreenResolutionHeight+      (\ s a -> s{_diScreenResolutionHeight = a})+      . mapping _Coerce++-- | Device language code raw setting. iOS does returns language code in+-- different format than iOS WebView. For example WebView returns en_US,+-- but iOS returns en-US. Field below will return raw value returned by+-- iOS.+diLanguageCodeRaw :: Lens' DeviceInfo (Maybe Text)+diLanguageCodeRaw+  = lens _diLanguageCodeRaw+      (\ s a -> s{_diLanguageCodeRaw = a})++-- | Device timezone setting.+diTimezone :: Lens' DeviceInfo (Maybe Text)+diTimezone+  = lens _diTimezone (\ s a -> s{_diTimezone = a})++instance FromJSON DeviceInfo where+        parseJSON+          = withObject "DeviceInfo"+              (\ o ->+                 DeviceInfo' <$>+                   (o .:? "languageCodeFromWebview") <*>+                     (o .:? "screenResolutionWidth")+                     <*> (o .:? "languageCode")+                     <*> (o .:? "deviceModelName")+                     <*> (o .:? "screenResolutionHeight")+                     <*> (o .:? "languageCodeRaw")+                     <*> (o .:? "timezone"))++instance ToJSON DeviceInfo where+        toJSON DeviceInfo'{..}+          = object+              (catMaybes+                 [("languageCodeFromWebview" .=) <$>+                    _diLanguageCodeFromWebview,+                  ("screenResolutionWidth" .=) <$>+                    _diScreenResolutionWidth,+                  ("languageCode" .=) <$> _diLanguageCode,+                  ("deviceModelName" .=) <$> _diDeviceModelName,+                  ("screenResolutionHeight" .=) <$>+                    _diScreenResolutionHeight,+                  ("languageCodeRaw" .=) <$> _diLanguageCodeRaw,+                  ("timezone" .=) <$> _diTimezone])

@@ -16,13 +16,94 @@ -- module Network.Google.FirebaseDynamicLinks.Types.Sum where -import           Network.Google.Prelude+import           Network.Google.Prelude hiding (Bytes) +-- | Requested platform.+data DynamicLinkEventStatPlatform+    = DynamicLinkPlatformUnspecified+      -- ^ @DYNAMIC_LINK_PLATFORM_UNSPECIFIED@+      -- Unspecified platform.+    | Android+      -- ^ @ANDROID@+      -- Represents Android platform. All apps and browsers on Android are+      -- classfied in this category.+    | Ios+      -- ^ @IOS@+      -- Represents iOS platform. All apps and browsers on iOS are classfied in+      -- this category.+    | Desktop+      -- ^ @DESKTOP@+      -- Represents desktop.+    | Other+      -- ^ @OTHER@+      -- Platforms are not categorized as Android\/iOS\/Destop fall into here.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable DynamicLinkEventStatPlatform++instance FromHttpApiData DynamicLinkEventStatPlatform where+    parseQueryParam = \case+        "DYNAMIC_LINK_PLATFORM_UNSPECIFIED" -> Right DynamicLinkPlatformUnspecified+        "ANDROID" -> Right Android+        "IOS" -> Right Ios+        "DESKTOP" -> Right Desktop+        "OTHER" -> Right Other+        x -> Left ("Unable to parse DynamicLinkEventStatPlatform from: " <> x)++instance ToHttpApiData DynamicLinkEventStatPlatform where+    toQueryParam = \case+        DynamicLinkPlatformUnspecified -> "DYNAMIC_LINK_PLATFORM_UNSPECIFIED"+        Android -> "ANDROID"+        Ios -> "IOS"+        Desktop -> "DESKTOP"+        Other -> "OTHER"++instance FromJSON DynamicLinkEventStatPlatform where+    parseJSON = parseJSONText "DynamicLinkEventStatPlatform"++instance ToJSON DynamicLinkEventStatPlatform where+    toJSON = toJSONText++-- | Strong match page information. Disambiguates between default UI and+-- custom page to present when strong match succeeds\/fails to find cookie.+data GetIosPostInstallAttributionRequestVisualStyle+    = UnknownVisualStyle+      -- ^ @UNKNOWN_VISUAL_STYLE@+      -- Unknown style.+    | DefaultStyle+      -- ^ @DEFAULT_STYLE@+      -- Default style.+    | CustomStyle+      -- ^ @CUSTOM_STYLE@+      -- Custom style.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable GetIosPostInstallAttributionRequestVisualStyle++instance FromHttpApiData GetIosPostInstallAttributionRequestVisualStyle where+    parseQueryParam = \case+        "UNKNOWN_VISUAL_STYLE" -> Right UnknownVisualStyle+        "DEFAULT_STYLE" -> Right DefaultStyle+        "CUSTOM_STYLE" -> Right CustomStyle+        x -> Left ("Unable to parse GetIosPostInstallAttributionRequestVisualStyle from: " <> x)++instance ToHttpApiData GetIosPostInstallAttributionRequestVisualStyle where+    toQueryParam = \case+        UnknownVisualStyle -> "UNKNOWN_VISUAL_STYLE"+        DefaultStyle -> "DEFAULT_STYLE"+        CustomStyle -> "CUSTOM_STYLE"++instance FromJSON GetIosPostInstallAttributionRequestVisualStyle where+    parseJSON = parseJSONText "GetIosPostInstallAttributionRequestVisualStyle"++instance ToJSON GetIosPostInstallAttributionRequestVisualStyle where+    toJSON = toJSONText+ -- | Suffix option. data SuffixOption     = OptionUnspecified       -- ^ @OPTION_UNSPECIFIED@-      -- The suffix option is not specified, performs as NOT_GUESSABLE .+      -- The suffix option is not specified, performs as UNGUESSABLE .     | Unguessable       -- ^ @UNGUESSABLE@       -- Short Dynamic Link suffix is a base62 [0-9A-Za-z] encoded string of a@@ -35,6 +116,11 @@       -- Short Dynamic Link suffix is a base62 [0-9A-Za-z] string starting with a       -- length of 4 chars. the length will increase when all the space is       -- occupied.+    | Custom+      -- ^ @CUSTOM@+      -- Custom DDL suffix is a client specified string, for example,+      -- \"buy2get1free\". NOTE: custom suffix should only be available to+      -- managed short link creation       deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable SuffixOption@@ -44,6 +130,7 @@         "OPTION_UNSPECIFIED" -> Right OptionUnspecified         "UNGUESSABLE" -> Right Unguessable         "SHORT" -> Right Short+        "CUSTOM" -> Right Custom         x -> Left ("Unable to parse SuffixOption from: " <> x)  instance ToHttpApiData SuffixOption where@@ -51,6 +138,7 @@         OptionUnspecified -> "OPTION_UNSPECIFIED"         Unguessable -> "UNGUESSABLE"         Short -> "SHORT"+        Custom -> "CUSTOM"  instance FromJSON SuffixOption where     parseJSON = parseJSONText "SuffixOption"@@ -58,6 +146,91 @@ instance ToJSON SuffixOption where     toJSON = toJSONText +-- | Link event.+data DynamicLinkEventStatEvent+    = DynamicLinkEventUnspecified+      -- ^ @DYNAMIC_LINK_EVENT_UNSPECIFIED@+      -- Unspecified type.+    | Click+      -- ^ @CLICK@+      -- Indicates that an FDL is clicked by users.+    | Redirect+      -- ^ @REDIRECT@+      -- Indicates that an FDL redirects users to fallback link.+    | AppInstall+      -- ^ @APP_INSTALL@+      -- Indicates that an FDL triggers an app install from Play store, currently+      -- it\'s impossible to get stats from App store.+    | AppFirstOpen+      -- ^ @APP_FIRST_OPEN@+      -- Indicates that the app is opened for the first time after an install+      -- triggered by FDLs+    | AppReOpen+      -- ^ @APP_RE_OPEN@+      -- Indicates that the app is opened via an FDL for non-first time.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable DynamicLinkEventStatEvent++instance FromHttpApiData DynamicLinkEventStatEvent where+    parseQueryParam = \case+        "DYNAMIC_LINK_EVENT_UNSPECIFIED" -> Right DynamicLinkEventUnspecified+        "CLICK" -> Right Click+        "REDIRECT" -> Right Redirect+        "APP_INSTALL" -> Right AppInstall+        "APP_FIRST_OPEN" -> Right AppFirstOpen+        "APP_RE_OPEN" -> Right AppReOpen+        x -> Left ("Unable to parse DynamicLinkEventStatEvent from: " <> x)++instance ToHttpApiData DynamicLinkEventStatEvent where+    toQueryParam = \case+        DynamicLinkEventUnspecified -> "DYNAMIC_LINK_EVENT_UNSPECIFIED"+        Click -> "CLICK"+        Redirect -> "REDIRECT"+        AppInstall -> "APP_INSTALL"+        AppFirstOpen -> "APP_FIRST_OPEN"+        AppReOpen -> "APP_RE_OPEN"++instance FromJSON DynamicLinkEventStatEvent where+    parseJSON = parseJSONText "DynamicLinkEventStatEvent"++instance ToJSON DynamicLinkEventStatEvent where+    toJSON = toJSONText++-- | Which IP version the request was made from.+data GetIosPostInstallAttributionResponseRequestIPVersion+    = UnknownIPVersion+      -- ^ @UNKNOWN_IP_VERSION@+      -- Unset.+    | IPV4+      -- ^ @IP_V4@+      -- Request made from an IPv4 IP address.+    | IPV6+      -- ^ @IP_V6@+      -- Request made from an IPv6 IP address.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable GetIosPostInstallAttributionResponseRequestIPVersion++instance FromHttpApiData GetIosPostInstallAttributionResponseRequestIPVersion where+    parseQueryParam = \case+        "UNKNOWN_IP_VERSION" -> Right UnknownIPVersion+        "IP_V4" -> Right IPV4+        "IP_V6" -> Right IPV6+        x -> Left ("Unable to parse GetIosPostInstallAttributionResponseRequestIPVersion from: " <> x)++instance ToHttpApiData GetIosPostInstallAttributionResponseRequestIPVersion where+    toQueryParam = \case+        UnknownIPVersion -> "UNKNOWN_IP_VERSION"+        IPV4 -> "IP_V4"+        IPV6 -> "IP_V6"++instance FromJSON GetIosPostInstallAttributionResponseRequestIPVersion where+    parseJSON = parseJSONText "GetIosPostInstallAttributionResponseRequestIPVersion"++instance ToJSON GetIosPostInstallAttributionResponseRequestIPVersion where+    toJSON = toJSONText+ -- | V1 error format. data Xgafv     = X1@@ -87,6 +260,47 @@ instance ToJSON Xgafv where     toJSON = toJSONText +-- | The confidence of the returned attribution.+data GetIosPostInstallAttributionResponseAttributionConfidence+    = UnknownAttributionConfidence+      -- ^ @UNKNOWN_ATTRIBUTION_CONFIDENCE@+      -- Unset.+    | Weak+      -- ^ @WEAK@+      -- Weak confidence, more than one matching link found or link suspected to+      -- be false positive+    | Default+      -- ^ @DEFAULT@+      -- Default confidence, match based on fingerprint+    | Unique+      -- ^ @UNIQUE@+      -- Unique confidence, match based on \"unique match link to check\" or+      -- other means+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable GetIosPostInstallAttributionResponseAttributionConfidence++instance FromHttpApiData GetIosPostInstallAttributionResponseAttributionConfidence where+    parseQueryParam = \case+        "UNKNOWN_ATTRIBUTION_CONFIDENCE" -> Right UnknownAttributionConfidence+        "WEAK" -> Right Weak+        "DEFAULT" -> Right Default+        "UNIQUE" -> Right Unique+        x -> Left ("Unable to parse GetIosPostInstallAttributionResponseAttributionConfidence from: " <> x)++instance ToHttpApiData GetIosPostInstallAttributionResponseAttributionConfidence where+    toQueryParam = \case+        UnknownAttributionConfidence -> "UNKNOWN_ATTRIBUTION_CONFIDENCE"+        Weak -> "WEAK"+        Default -> "DEFAULT"+        Unique -> "UNIQUE"++instance FromJSON GetIosPostInstallAttributionResponseAttributionConfidence where+    parseJSON = parseJSONText "GetIosPostInstallAttributionResponseAttributionConfidence"++instance ToJSON GetIosPostInstallAttributionResponseAttributionConfidence where+    toJSON = toJSONText+ -- | The warning code. data DynamicLinkWarningWarningCode     = CodeUnspecified@@ -252,4 +466,87 @@     parseJSON = parseJSONText "DynamicLinkWarningWarningCode"  instance ToJSON DynamicLinkWarningWarningCode where+    toJSON = toJSONText++-- | App post install attribution retrieval information. Disambiguates+-- mechanism (iSDK or developer invoked) to retrieve payload from clicked+-- link.+data GetIosPostInstallAttributionRequestRetrievalMethod+    = UnknownPayloadRetrievalMethod+      -- ^ @UNKNOWN_PAYLOAD_RETRIEVAL_METHOD@+      -- Unknown method.+    | ImplicitWeakMatch+      -- ^ @IMPLICIT_WEAK_MATCH@+      -- iSDK performs a server lookup by device fingerprint in the background+      -- when app is first-opened; no API called by developer.+    | ExplicitWeakMatch+      -- ^ @EXPLICIT_WEAK_MATCH@+      -- iSDK performs a server lookup by device fingerprint upon a dev API call.+    | ExplicitStrongAfterWeakMatch+      -- ^ @EXPLICIT_STRONG_AFTER_WEAK_MATCH@+      -- iSDK performs a strong match only if weak match is found upon a dev API+      -- call.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable GetIosPostInstallAttributionRequestRetrievalMethod++instance FromHttpApiData GetIosPostInstallAttributionRequestRetrievalMethod where+    parseQueryParam = \case+        "UNKNOWN_PAYLOAD_RETRIEVAL_METHOD" -> Right UnknownPayloadRetrievalMethod+        "IMPLICIT_WEAK_MATCH" -> Right ImplicitWeakMatch+        "EXPLICIT_WEAK_MATCH" -> Right ExplicitWeakMatch+        "EXPLICIT_STRONG_AFTER_WEAK_MATCH" -> Right ExplicitStrongAfterWeakMatch+        x -> Left ("Unable to parse GetIosPostInstallAttributionRequestRetrievalMethod from: " <> x)++instance ToHttpApiData GetIosPostInstallAttributionRequestRetrievalMethod where+    toQueryParam = \case+        UnknownPayloadRetrievalMethod -> "UNKNOWN_PAYLOAD_RETRIEVAL_METHOD"+        ImplicitWeakMatch -> "IMPLICIT_WEAK_MATCH"+        ExplicitWeakMatch -> "EXPLICIT_WEAK_MATCH"+        ExplicitStrongAfterWeakMatch -> "EXPLICIT_STRONG_AFTER_WEAK_MATCH"++instance FromJSON GetIosPostInstallAttributionRequestRetrievalMethod where+    parseJSON = parseJSONText "GetIosPostInstallAttributionRequestRetrievalMethod"++instance ToJSON GetIosPostInstallAttributionRequestRetrievalMethod where+    toJSON = toJSONText++-- | Visibility status of link.+data ManagedShortLinkVisibility+    = UnspecifiedVisibility+      -- ^ @UNSPECIFIED_VISIBILITY@+      -- Visibility of the link is not specified.+    | Unarchived+      -- ^ @UNARCHIVED@+      -- Link created in console and should be shown in console.+    | Archived+      -- ^ @ARCHIVED@+      -- Link created in console and should not be shown in console (but can be+      -- shown in the console again if it is unarchived).+    | NeverShown+      -- ^ @NEVER_SHOWN@+      -- Link created outside of console and should never be shown in console.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable ManagedShortLinkVisibility++instance FromHttpApiData ManagedShortLinkVisibility where+    parseQueryParam = \case+        "UNSPECIFIED_VISIBILITY" -> Right UnspecifiedVisibility+        "UNARCHIVED" -> Right Unarchived+        "ARCHIVED" -> Right Archived+        "NEVER_SHOWN" -> Right NeverShown+        x -> Left ("Unable to parse ManagedShortLinkVisibility from: " <> x)++instance ToHttpApiData ManagedShortLinkVisibility where+    toQueryParam = \case+        UnspecifiedVisibility -> "UNSPECIFIED_VISIBILITY"+        Unarchived -> "UNARCHIVED"+        Archived -> "ARCHIVED"+        NeverShown -> "NEVER_SHOWN"++instance FromJSON ManagedShortLinkVisibility where+    parseJSON = parseJSONText "ManagedShortLinkVisibility"++instance ToJSON ManagedShortLinkVisibility where     toJSON = toJSONText

@@ -0,0 +1,179 @@+{-# 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.GetLinkStats+-- Copyright   : (c) 2015-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)+--+-- Fetches analytics stats of a short Dynamic Link for a given duration.+-- Metrics include number of clicks, redirects, installs, app first opens,+-- and app reopens.+--+-- /See:/ <https://firebase.google.com/docs/dynamic-links/ Firebase Dynamic Links API Reference> for @firebasedynamiclinks.getLinkStats@.+module Network.Google.Resource.FirebaseDynamicLinks.GetLinkStats+    (+    -- * REST Resource+      GetLinkStatsResource++    -- * Creating a Request+    , getLinkStats+    , GetLinkStats++    -- * Request Lenses+    , glsXgafv+    , glsUploadProtocol+    , glsDynamicLink+    , glsAccessToken+    , glsUploadType+    , glsSdkVersion+    , glsDurationDays+    , glsCallback+    ) where++import           Network.Google.FirebaseDynamicLinks.Types+import           Network.Google.Prelude++-- | A resource alias for @firebasedynamiclinks.getLinkStats@ method which the+-- 'GetLinkStats' request conforms to.+type GetLinkStatsResource =+     "v1" :>+       Capture "dynamicLink" Text :>+         "linkStats" :>+           QueryParam "$.xgafv" Xgafv :>+             QueryParam "upload_protocol" Text :>+               QueryParam "access_token" Text :>+                 QueryParam "uploadType" Text :>+                   QueryParam "sdkVersion" Text :>+                     QueryParam "durationDays" (Textual Int64) :>+                       QueryParam "callback" Text :>+                         QueryParam "alt" AltJSON :>+                           Get '[JSON] DynamicLinkStats++-- | Fetches analytics stats of a short Dynamic Link for a given duration.+-- Metrics include number of clicks, redirects, installs, app first opens,+-- and app reopens.+--+-- /See:/ 'getLinkStats' smart constructor.+data GetLinkStats = GetLinkStats'+    { _glsXgafv          :: !(Maybe Xgafv)+    , _glsUploadProtocol :: !(Maybe Text)+    , _glsDynamicLink    :: !Text+    , _glsAccessToken    :: !(Maybe Text)+    , _glsUploadType     :: !(Maybe Text)+    , _glsSdkVersion     :: !(Maybe Text)+    , _glsDurationDays   :: !(Maybe (Textual Int64))+    , _glsCallback       :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetLinkStats' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glsXgafv'+--+-- * 'glsUploadProtocol'+--+-- * 'glsDynamicLink'+--+-- * 'glsAccessToken'+--+-- * 'glsUploadType'+--+-- * 'glsSdkVersion'+--+-- * 'glsDurationDays'+--+-- * 'glsCallback'+getLinkStats+    :: Text -- ^ 'glsDynamicLink'+    -> GetLinkStats+getLinkStats pGlsDynamicLink_ =+    GetLinkStats'+    { _glsXgafv = Nothing+    , _glsUploadProtocol = Nothing+    , _glsDynamicLink = pGlsDynamicLink_+    , _glsAccessToken = Nothing+    , _glsUploadType = Nothing+    , _glsSdkVersion = Nothing+    , _glsDurationDays = Nothing+    , _glsCallback = Nothing+    }++-- | V1 error format.+glsXgafv :: Lens' GetLinkStats (Maybe Xgafv)+glsXgafv = lens _glsXgafv (\ s a -> s{_glsXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+glsUploadProtocol :: Lens' GetLinkStats (Maybe Text)+glsUploadProtocol+  = lens _glsUploadProtocol+      (\ s a -> s{_glsUploadProtocol = a})++-- | Dynamic Link URL. e.g. https:\/\/abcd.app.goo.gl\/wxyz+glsDynamicLink :: Lens' GetLinkStats Text+glsDynamicLink+  = lens _glsDynamicLink+      (\ s a -> s{_glsDynamicLink = a})++-- | OAuth access token.+glsAccessToken :: Lens' GetLinkStats (Maybe Text)+glsAccessToken+  = lens _glsAccessToken+      (\ s a -> s{_glsAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+glsUploadType :: Lens' GetLinkStats (Maybe Text)+glsUploadType+  = lens _glsUploadType+      (\ s a -> s{_glsUploadType = a})++-- | Google SDK version. Version takes the form+-- \"/m//a//j//o//r/.minor.$patch\"+glsSdkVersion :: Lens' GetLinkStats (Maybe Text)+glsSdkVersion+  = lens _glsSdkVersion+      (\ s a -> s{_glsSdkVersion = a})++-- | The span of time requested in days.+glsDurationDays :: Lens' GetLinkStats (Maybe Int64)+glsDurationDays+  = lens _glsDurationDays+      (\ s a -> s{_glsDurationDays = a})+      . mapping _Coerce++-- | JSONP+glsCallback :: Lens' GetLinkStats (Maybe Text)+glsCallback+  = lens _glsCallback (\ s a -> s{_glsCallback = a})++instance GoogleRequest GetLinkStats where+        type Rs GetLinkStats = DynamicLinkStats+        type Scopes GetLinkStats =+             '["https://www.googleapis.com/auth/firebase"]+        requestClient GetLinkStats'{..}+          = go _glsDynamicLink _glsXgafv _glsUploadProtocol+              _glsAccessToken+              _glsUploadType+              _glsSdkVersion+              _glsDurationDays+              _glsCallback+              (Just AltJSON)+              firebaseDynamicLinksService+          where go+                  = buildClient (Proxy :: Proxy GetLinkStatsResource)+                      mempty

@@ -0,0 +1,147 @@+{-# 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.InstallAttribution+-- Copyright   : (c) 2015-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)+--+-- Get iOS strong\/weak-match info for post-install attribution.+--+-- /See:/ <https://firebase.google.com/docs/dynamic-links/ Firebase Dynamic Links API Reference> for @firebasedynamiclinks.installAttribution@.+module Network.Google.Resource.FirebaseDynamicLinks.InstallAttribution+    (+    -- * REST Resource+      InstallAttributionResource++    -- * Creating a Request+    , installAttribution+    , InstallAttribution++    -- * Request Lenses+    , iaXgafv+    , iaUploadProtocol+    , iaAccessToken+    , iaUploadType+    , iaPayload+    , iaCallback+    ) where++import           Network.Google.FirebaseDynamicLinks.Types+import           Network.Google.Prelude++-- | A resource alias for @firebasedynamiclinks.installAttribution@ method which the+-- 'InstallAttribution' request conforms to.+type InstallAttributionResource =+     "v1" :>+       "installAttribution" :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] GetIosPostInstallAttributionRequest+                       :> Post '[JSON] GetIosPostInstallAttributionResponse++-- | Get iOS strong\/weak-match info for post-install attribution.+--+-- /See:/ 'installAttribution' smart constructor.+data InstallAttribution = InstallAttribution'+    { _iaXgafv          :: !(Maybe Xgafv)+    , _iaUploadProtocol :: !(Maybe Text)+    , _iaAccessToken    :: !(Maybe Text)+    , _iaUploadType     :: !(Maybe Text)+    , _iaPayload        :: !GetIosPostInstallAttributionRequest+    , _iaCallback       :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'InstallAttribution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iaXgafv'+--+-- * 'iaUploadProtocol'+--+-- * 'iaAccessToken'+--+-- * 'iaUploadType'+--+-- * 'iaPayload'+--+-- * 'iaCallback'+installAttribution+    :: GetIosPostInstallAttributionRequest -- ^ 'iaPayload'+    -> InstallAttribution+installAttribution pIaPayload_ =+    InstallAttribution'+    { _iaXgafv = Nothing+    , _iaUploadProtocol = Nothing+    , _iaAccessToken = Nothing+    , _iaUploadType = Nothing+    , _iaPayload = pIaPayload_+    , _iaCallback = Nothing+    }++-- | V1 error format.+iaXgafv :: Lens' InstallAttribution (Maybe Xgafv)+iaXgafv = lens _iaXgafv (\ s a -> s{_iaXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+iaUploadProtocol :: Lens' InstallAttribution (Maybe Text)+iaUploadProtocol+  = lens _iaUploadProtocol+      (\ s a -> s{_iaUploadProtocol = a})++-- | OAuth access token.+iaAccessToken :: Lens' InstallAttribution (Maybe Text)+iaAccessToken+  = lens _iaAccessToken+      (\ s a -> s{_iaAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+iaUploadType :: Lens' InstallAttribution (Maybe Text)+iaUploadType+  = lens _iaUploadType (\ s a -> s{_iaUploadType = a})++-- | Multipart request metadata.+iaPayload :: Lens' InstallAttribution GetIosPostInstallAttributionRequest+iaPayload+  = lens _iaPayload (\ s a -> s{_iaPayload = a})++-- | JSONP+iaCallback :: Lens' InstallAttribution (Maybe Text)+iaCallback+  = lens _iaCallback (\ s a -> s{_iaCallback = a})++instance GoogleRequest InstallAttribution where+        type Rs InstallAttribution =+             GetIosPostInstallAttributionResponse+        type Scopes InstallAttribution =+             '["https://www.googleapis.com/auth/firebase"]+        requestClient InstallAttribution'{..}+          = go _iaXgafv _iaUploadProtocol _iaAccessToken+              _iaUploadType+              _iaCallback+              (Just AltJSON)+              _iaPayload+              firebaseDynamicLinksService+          where go+                  = buildClient+                      (Proxy :: Proxy InstallAttributionResource)+                      mempty

@@ -0,0 +1,165 @@+{-# 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.ManagedShortLinks.Create+-- Copyright   : (c) 2015-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)+--+-- Creates a managed 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. This+-- differs from CreateShortDynamicLink in the following ways: - The request+-- will also contain a name for the link (non unique name for the front+-- end). - The response must be authenticated with an auth token (generated+-- with the admin service account). - The link will appear in the FDL list+-- of links in the console front end. The Dynamic Link domain in the+-- request must be owned by requester\'s Firebase project.+--+-- /See:/ <https://firebase.google.com/docs/dynamic-links/ Firebase Dynamic Links API Reference> for @firebasedynamiclinks.managedShortLinks.create@.+module Network.Google.Resource.FirebaseDynamicLinks.ManagedShortLinks.Create+    (+    -- * REST Resource+      ManagedShortLinksCreateResource++    -- * Creating a Request+    , managedShortLinksCreate+    , ManagedShortLinksCreate++    -- * Request Lenses+    , mslcXgafv+    , mslcUploadProtocol+    , mslcAccessToken+    , mslcUploadType+    , mslcPayload+    , mslcCallback+    ) where++import           Network.Google.FirebaseDynamicLinks.Types+import           Network.Google.Prelude++-- | A resource alias for @firebasedynamiclinks.managedShortLinks.create@ method which the+-- 'ManagedShortLinksCreate' request conforms to.+type ManagedShortLinksCreateResource =+     "v1" :>+       "managedShortLinks:create" :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] CreateManagedShortLinkRequest :>+                       Post '[JSON] CreateManagedShortLinkResponse++-- | Creates a managed 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. This+-- differs from CreateShortDynamicLink in the following ways: - The request+-- will also contain a name for the link (non unique name for the front+-- end). - The response must be authenticated with an auth token (generated+-- with the admin service account). - The link will appear in the FDL list+-- of links in the console front end. The Dynamic Link domain in the+-- request must be owned by requester\'s Firebase project.+--+-- /See:/ 'managedShortLinksCreate' smart constructor.+data ManagedShortLinksCreate = ManagedShortLinksCreate'+    { _mslcXgafv          :: !(Maybe Xgafv)+    , _mslcUploadProtocol :: !(Maybe Text)+    , _mslcAccessToken    :: !(Maybe Text)+    , _mslcUploadType     :: !(Maybe Text)+    , _mslcPayload        :: !CreateManagedShortLinkRequest+    , _mslcCallback       :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ManagedShortLinksCreate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mslcXgafv'+--+-- * 'mslcUploadProtocol'+--+-- * 'mslcAccessToken'+--+-- * 'mslcUploadType'+--+-- * 'mslcPayload'+--+-- * 'mslcCallback'+managedShortLinksCreate+    :: CreateManagedShortLinkRequest -- ^ 'mslcPayload'+    -> ManagedShortLinksCreate+managedShortLinksCreate pMslcPayload_ =+    ManagedShortLinksCreate'+    { _mslcXgafv = Nothing+    , _mslcUploadProtocol = Nothing+    , _mslcAccessToken = Nothing+    , _mslcUploadType = Nothing+    , _mslcPayload = pMslcPayload_+    , _mslcCallback = Nothing+    }++-- | V1 error format.+mslcXgafv :: Lens' ManagedShortLinksCreate (Maybe Xgafv)+mslcXgafv+  = lens _mslcXgafv (\ s a -> s{_mslcXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+mslcUploadProtocol :: Lens' ManagedShortLinksCreate (Maybe Text)+mslcUploadProtocol+  = lens _mslcUploadProtocol+      (\ s a -> s{_mslcUploadProtocol = a})++-- | OAuth access token.+mslcAccessToken :: Lens' ManagedShortLinksCreate (Maybe Text)+mslcAccessToken+  = lens _mslcAccessToken+      (\ s a -> s{_mslcAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+mslcUploadType :: Lens' ManagedShortLinksCreate (Maybe Text)+mslcUploadType+  = lens _mslcUploadType+      (\ s a -> s{_mslcUploadType = a})++-- | Multipart request metadata.+mslcPayload :: Lens' ManagedShortLinksCreate CreateManagedShortLinkRequest+mslcPayload+  = lens _mslcPayload (\ s a -> s{_mslcPayload = a})++-- | JSONP+mslcCallback :: Lens' ManagedShortLinksCreate (Maybe Text)+mslcCallback+  = lens _mslcCallback (\ s a -> s{_mslcCallback = a})++instance GoogleRequest ManagedShortLinksCreate where+        type Rs ManagedShortLinksCreate =+             CreateManagedShortLinkResponse+        type Scopes ManagedShortLinksCreate =+             '["https://www.googleapis.com/auth/firebase"]+        requestClient ManagedShortLinksCreate'{..}+          = go _mslcXgafv _mslcUploadProtocol _mslcAccessToken+              _mslcUploadType+              _mslcCallback+              (Just AltJSON)+              _mslcPayload+              firebaseDynamicLinksService+          where go+                  = buildClient+                      (Proxy :: Proxy ManagedShortLinksCreateResource)+                      mempty

@@ -0,0 +1,147 @@+{-# 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.ReopenAttribution+-- Copyright   : (c) 2015-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)+--+-- Get iOS reopen attribution for app universal link open deeplinking.+--+-- /See:/ <https://firebase.google.com/docs/dynamic-links/ Firebase Dynamic Links API Reference> for @firebasedynamiclinks.reopenAttribution@.+module Network.Google.Resource.FirebaseDynamicLinks.ReopenAttribution+    (+    -- * REST Resource+      ReopenAttributionResource++    -- * Creating a Request+    , reopenAttribution+    , ReopenAttribution++    -- * Request Lenses+    , raXgafv+    , raUploadProtocol+    , raAccessToken+    , raUploadType+    , raPayload+    , raCallback+    ) where++import           Network.Google.FirebaseDynamicLinks.Types+import           Network.Google.Prelude++-- | A resource alias for @firebasedynamiclinks.reopenAttribution@ method which the+-- 'ReopenAttribution' request conforms to.+type ReopenAttributionResource =+     "v1" :>+       "reopenAttribution" :>+         QueryParam "$.xgafv" Xgafv :>+           QueryParam "upload_protocol" Text :>+             QueryParam "access_token" Text :>+               QueryParam "uploadType" Text :>+                 QueryParam "callback" Text :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] GetIosReopenAttributionRequest :>+                       Post '[JSON] GetIosReopenAttributionResponse++-- | Get iOS reopen attribution for app universal link open deeplinking.+--+-- /See:/ 'reopenAttribution' smart constructor.+data ReopenAttribution = ReopenAttribution'+    { _raXgafv          :: !(Maybe Xgafv)+    , _raUploadProtocol :: !(Maybe Text)+    , _raAccessToken    :: !(Maybe Text)+    , _raUploadType     :: !(Maybe Text)+    , _raPayload        :: !GetIosReopenAttributionRequest+    , _raCallback       :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ReopenAttribution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'raXgafv'+--+-- * 'raUploadProtocol'+--+-- * 'raAccessToken'+--+-- * 'raUploadType'+--+-- * 'raPayload'+--+-- * 'raCallback'+reopenAttribution+    :: GetIosReopenAttributionRequest -- ^ 'raPayload'+    -> ReopenAttribution+reopenAttribution pRaPayload_ =+    ReopenAttribution'+    { _raXgafv = Nothing+    , _raUploadProtocol = Nothing+    , _raAccessToken = Nothing+    , _raUploadType = Nothing+    , _raPayload = pRaPayload_+    , _raCallback = Nothing+    }++-- | V1 error format.+raXgafv :: Lens' ReopenAttribution (Maybe Xgafv)+raXgafv = lens _raXgafv (\ s a -> s{_raXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+raUploadProtocol :: Lens' ReopenAttribution (Maybe Text)+raUploadProtocol+  = lens _raUploadProtocol+      (\ s a -> s{_raUploadProtocol = a})++-- | OAuth access token.+raAccessToken :: Lens' ReopenAttribution (Maybe Text)+raAccessToken+  = lens _raAccessToken+      (\ s a -> s{_raAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+raUploadType :: Lens' ReopenAttribution (Maybe Text)+raUploadType+  = lens _raUploadType (\ s a -> s{_raUploadType = a})++-- | Multipart request metadata.+raPayload :: Lens' ReopenAttribution GetIosReopenAttributionRequest+raPayload+  = lens _raPayload (\ s a -> s{_raPayload = a})++-- | JSONP+raCallback :: Lens' ReopenAttribution (Maybe Text)+raCallback+  = lens _raCallback (\ s a -> s{_raCallback = a})++instance GoogleRequest ReopenAttribution where+        type Rs ReopenAttribution =+             GetIosReopenAttributionResponse+        type Scopes ReopenAttribution =+             '["https://www.googleapis.com/auth/firebase"]+        requestClient ReopenAttribution'{..}+          = go _raXgafv _raUploadProtocol _raAccessToken+              _raUploadType+              _raCallback+              (Just AltJSON)+              _raPayload+              firebaseDynamicLinksService+          where go+                  = buildClient+                      (Proxy :: Proxy ReopenAttributionResource)+                      mempty

@@ -40,11 +40,9 @@     -- * Request Lenses     , slcXgafv     , slcUploadProtocol-    , slcPp     , slcAccessToken     , slcUploadType     , slcPayload-    , slcBearerToken     , slcCallback     ) where @@ -58,14 +56,12 @@        "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+             QueryParam "access_token" Text :>+               QueryParam "uploadType" 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.@@ -78,11 +74,9 @@ 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) @@ -94,16 +88,12 @@ -- -- * 'slcUploadProtocol' ----- * 'slcPp'--- -- * 'slcAccessToken' -- -- * 'slcUploadType' -- -- * 'slcPayload' ----- * 'slcBearerToken'--- -- * 'slcCallback' shortLinksCreate     :: CreateShortDynamicLinkRequest -- ^ 'slcPayload'@@ -112,11 +102,9 @@     ShortLinksCreate'     { _slcXgafv = Nothing     , _slcUploadProtocol = Nothing-    , _slcPp = True     , _slcAccessToken = Nothing     , _slcUploadType = Nothing     , _slcPayload = pSlcPayload_-    , _slcBearerToken = Nothing     , _slcCallback = Nothing     } @@ -130,10 +118,6 @@   = 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@@ -151,12 +135,6 @@ 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@@ -168,10 +146,8 @@         type Scopes ShortLinksCreate =              '["https://www.googleapis.com/auth/firebase"]         requestClient ShortLinksCreate'{..}-          = go _slcXgafv _slcUploadProtocol (Just _slcPp)-              _slcAccessToken+          = go _slcXgafv _slcUploadProtocol _slcAccessToken               _slcUploadType-              _slcBearerToken               _slcCallback               (Just AltJSON)               _slcPayload

@@ -1,5 +1,5 @@ name:                  gogol-firebase-dynamiclinks-version:               0.3.0+version:               0.4.0 synopsis:              Google Firebase Dynamic Links SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -14,8 +14,7 @@ extra-source-files:    README.md src/.gitkeep  description:-    Firebase Dynamic Links API enables third party developers to-    programmatically create and manage Dynamic Links.+    Programmatically creates and manages Firebase Dynamic Links.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -36,6 +35,10 @@     exposed-modules:           Network.Google.FirebaseDynamicLinks         , Network.Google.FirebaseDynamicLinks.Types+        , Network.Google.Resource.FirebaseDynamicLinks.GetLinkStats+        , Network.Google.Resource.FirebaseDynamicLinks.InstallAttribution+        , Network.Google.Resource.FirebaseDynamicLinks.ManagedShortLinks.Create+        , Network.Google.Resource.FirebaseDynamicLinks.ReopenAttribution         , Network.Google.Resource.FirebaseDynamicLinks.ShortLinks.Create      other-modules:@@ -43,5 +46,5 @@         , Network.Google.FirebaseDynamicLinks.Types.Sum      build-depends:-          gogol-core == 0.3.0.*+          gogol-core == 0.4.0.*         , base       >= 4.7 && < 5