referrer wip

Author: functora

apps

@@ -1,6 +1,6 @@
 cabal-version: 2.2
 name:          delivery-calculator
-version:       0.1.0.17
+version:       0.1.0.18
 synopsis:      Delivery Calculator
 category:      Web
 build-type:    Simple

ghcjs/delivery-calculator/delivery-calculator.cabal

@@ -19,6 +19,7 @@
     "@capacitor/toast": "^6.0.2",
     "@ionic/pwa-elements": "^3.3.0",
     "@lowlighter/matcha": "^3.0.0",
+    "capacitor-play-install-referrer-library": "^0.0.2",
     "capacitor-webview-print": "^6.0.1"
   },
   "devDependencies": {

ghcjs/delivery-calculator/package-lock.json

@@ -24,7 +24,7 @@ module App.Types
     btc,
     cny,
     rub,
-    googlePlayLink,
+    mkGooglePlayLink,
     testGroupLink,
     functoraLink,
     sourceLink,
@@ -522,10 +522,27 @@ cny = CurrencyInfo (CurrencyCode "cny") mempty
 rub :: CurrencyInfo
 rub = CurrencyInfo (CurrencyCode "rub") mempty
 
-googlePlayLink :: URI
-googlePlayLink =
-  either impureThrow id
-    $ mkURI "https://play.google.com/apps/testing/com.functora.delivery_calculator"
+mkGooglePlayLink :: Model -> URI
+mkGooglePlayLink st =
+  either impureThrow id $ do
+    ref <- mkURI mempty
+    k <- URI.mkQueryKey "referrer"
+    v <-
+      URI.mkQueryValue
+        $ URI.render
+          ref
+            { URI.uriQuery =
+                toQuery
+                  . uniqueToIdentity
+                  $ modelState st
+            }
+    uri <-
+      mkURI
+        "https://play.google.com/apps/testing/com.functora.delivery_calculator"
+    pure
+      $ uri
+        { URI.uriQuery = [URI.QueryParam k v]
+        }
 
 testGroupLink :: URI
 testGroupLink =

ghcjs/delivery-calculator/package.json

@@ -50,7 +50,7 @@ googlePlay st =
                       text " group and then install the app from ",
                       BrowserLink.browserLink
                         BrowserLink.Args
-                          { BrowserLink.argsLink = googlePlayLink,
+                          { BrowserLink.argsLink = mkGooglePlayLink st,
                             BrowserLink.argsLabel = "Google Play",
                             BrowserLink.argsAction = PushUpdate
                           },
@@ -70,7 +70,7 @@ googlePlay st =
                       text " Join testing (closed beta)"
                     ],
                   button_
-                    [ onClick $ openBrowser googlePlayLink
+                    [ onClick . openBrowser $ mkGooglePlayLink st
                     ]
                     [ icon Icon.IconGooglePlay,
                       text " Google Play (closed beta)"

ghcjs/delivery-calculator/src/App/Types.hs

@@ -130,14 +130,25 @@ updateModel (InitUpdate mShortSt) prevSt = do
     mvSink <- newMVar sink
     let nextSt = prevSt {modelSink = mvSink}
     Jsm.selectStorage ("current-" <> vsn) $ \case
-      Nothing -> do
-        liftIO
-          . sink
-          . PushUpdate
-          . PureUpdate
-          $ #modelLoading
-          .~ False
-        opfsSync sink nextSt
+      Nothing ->
+        Jsm.fetchInstallReferrerUri $ \case
+          Nothing -> do
+            liftIO
+              . sink
+              . PushUpdate
+              . PureUpdate
+              $ #modelLoading
+              .~ False
+            opfsSync sink nextSt
+          Just ref -> do
+            alert ref
+            liftIO
+              . sink
+              . PushUpdate
+              . PureUpdate
+              $ #modelLoading
+              .~ False
+            opfsSync sink nextSt
       Just uri -> do
         mLongSt <- unLongUri uri
         let st =

ghcjs/delivery-calculator/src/App/Widgets/GooglePlay.hs

@@ -1,8 +1,8 @@
 platforms:
   android:
     appName: Delivery Calculator
-    versionCode: 17
-    versionName: 0.1.0.17
+    versionCode: 18
+    versionName: 0.1.0.18
     packageName: com.functora.delivery_calculator
     manifest:
       - file: AndroidManifest.xml