feat(logger): calculate loading latency from iframe init to render

src/App.res

@@ -1,17 +1,15 @@
 @react.component
 let make = () => {
+  let (logger, initTimestamp) = React.useMemo0(() => {
+    (OrcaLogger.make(), Date.now())
+  })
   let url = RescriptReactRouter.useUrl()
   let (integrateError, setIntegrateErrorError) = React.useState(() => false)
   let setLoggerState = Recoil.useSetRecoilState(RecoilAtoms.loggerAtom)
 
   let paymentMode = CardUtils.getQueryParamsDictforKey(url.search, "componentName")
   let fullscreenMode = CardUtils.getQueryParamsDictforKey(url.search, "fullscreenType")
 
-  let logger = React.useMemo0(() => {
-    let log = OrcaLogger.make()
-    log
-  })
-
   React.useEffect(() => {
     setLoggerState(_ => logger)
     None
@@ -41,7 +39,7 @@ let make = () => {
     | "sepaBankTransfer" =>
       <BankTransfersPopup transferType=fullscreenMode />
     | _ =>
-      <LoaderController paymentMode setIntegrateErrorError logger>
+      <LoaderController paymentMode setIntegrateErrorError logger initTimestamp>
         <Payment paymentMode integrateError logger />
       </LoaderController>
     }

src/LoaderController.res

@@ -1,6 +1,6 @@
 open Utils
 @react.component
-let make = (~children, ~paymentMode, ~setIntegrateErrorError, ~logger) => {
+let make = (~children, ~paymentMode, ~setIntegrateErrorError, ~logger, ~initTimestamp) => {
   open RecoilAtoms
   //<...>//
   let (configAtom, setConfig) = Recoil.useRecoilState(configAtom)
@@ -15,6 +15,7 @@ let make = (~children, ~paymentMode, ~setIntegrateErrorError, ~logger) => {
   let setIsGooglePayReady = Recoil.useSetRecoilState(isGooglePayReady)
   let setIsApplePayReady = Recoil.useSetRecoilState(isApplePayReady)
   let (divH, setDivH) = React.useState(_ => 0.0)
+  let (launchTime, setLaunchTime) = React.useState(_ => 0.0)
   let {showCardFormByDefault, paymentMethodOrder} = optionsPayment
 
   let divRef = React.useRef(Nullable.null)
@@ -130,15 +131,21 @@ let make = (~children, ~paymentMode, ~setIntegrateErrorError, ~logger) => {
       showCardFormByDefault && Utils.checkPriorityList(paymentMethodOrder) ? SemiLoaded : Loading
     | x => x
     }
+    let latency = Js.Date.now() -. launchTime
     switch updatedState {
-    | Loaded(_) => logger.setLogInfo(~value="Loaded", ~eventName=LOADER_CHANGED, ())
-    | Loading => logger.setLogInfo(~value="Loading", ~eventName=LOADER_CHANGED, ())
+    | Loaded(_) => logger.setLogInfo(~value="Loaded", ~eventName=LOADER_CHANGED, ~latency, ())
+    | Loading => logger.setLogInfo(~value="Loading", ~eventName=LOADER_CHANGED, ~latency, ())
     | SemiLoaded => {
         setList(_ => updatedState)
-        logger.setLogInfo(~value="SemiLoaded", ~eventName=LOADER_CHANGED, ())
+        logger.setLogInfo(~value="SemiLoaded", ~eventName=LOADER_CHANGED, ~latency, ())
       }
     | LoadError(x) =>
-      logger.setLogError(~value="LoadError: " ++ x->JSON.stringify, ~eventName=LOADER_CHANGED, ())
+      logger.setLogError(
+        ~value="LoadError: " ++ x->JSON.stringify,
+        ~eventName=LOADER_CHANGED,
+        ~latency,
+        (),
+      )
     }
     Window.addEventListener("click", ev =>
       handleOnClickPostMessage(~targetOrigin=keys.parentURL, ev)
@@ -257,8 +264,9 @@ let make = (~children, ~paymentMode, ~setIntegrateErrorError, ~logger) => {
                   })
                 }
               }
-
-              logger.setLogInfo(~value=Window.href, ~eventName=APP_RENDERED, ())
+              setLaunchTime(_ => dict->Utils.getFloat("launchTime", 0.0))
+              let latency = Date.now() -. launchTime
+              logger.setLogInfo(~value=Window.href, ~eventName=APP_RENDERED, ~latency, ())
               [
                 ("iframeId", "no-element"->JSON.Encode.string),
                 ("publishableKey", ""->JSON.Encode.string),
@@ -267,8 +275,8 @@ let make = (~children, ~paymentMode, ~setIntegrateErrorError, ~logger) => {
               ]->Array.forEach(keyPair => {
                 dict->CommonHooks.updateKeys(keyPair, setKeys)
               })
-
-              logger.setLogInfo(~eventName=PAYMENT_OPTIONS_PROVIDED, ~value="", ())
+              let latency = Date.now() -. initTimestamp
+              logger.setLogInfo(~eventName=PAYMENT_OPTIONS_PROVIDED, ~latency, ~value="", ())
             }
           } else if dict->getDictIsSome("paymentOptions") {
             let paymentOptions = dict->Utils.getDictFromObj("paymentOptions")
@@ -340,6 +348,7 @@ let make = (~children, ~paymentMode, ~setIntegrateErrorError, ~logger) => {
         }
         if dict->getDictIsSome("paymentMethodList") {
           let list = dict->getJsonObjectFromDict("paymentMethodList")
+          let latency = Js.Date.now() -. launchTime
           let updatedState: PaymentType.loadType =
             list == Dict.make()->JSON.Encode.object
               ? LoadError(list)
@@ -351,11 +360,12 @@ let make = (~children, ~paymentMode, ~setIntegrateErrorError, ~logger) => {
                   isNonEmptyPaymentMethodList ? Loaded(list) : LoadError(list)
                 }
           switch updatedState {
-          | Loaded(_) => logger.setLogInfo(~value="Loaded", ~eventName=LOADER_CHANGED, ())
+          | Loaded(_) => logger.setLogInfo(~value="Loaded", ~eventName=LOADER_CHANGED, ~latency, ())
           | LoadError(x) =>
             logger.setLogError(
               ~value="LoadError: " ++ x->JSON.stringify,
               ~eventName=LOADER_CHANGED,
+              ~latency,
               (),
             )
           | _ => ()

src/orca-loader/Elements.res

@@ -35,6 +35,7 @@ let make = (
     let endpoint = ApiEndpoint.getApiEndPoint(~publishableKey, ())
     let appearance =
       localOptions->Dict.get("appearance")->Option.getOr(Dict.make()->JSON.Encode.object)
+    let launchTime = localOptions->getFloat("launchTime", 0.0)
 
     let fonts =
       localOptions
@@ -247,6 +248,7 @@ let make = (
             ("sdkHandleOneClickConfirmPayment", sdkHandleOneClickConfirmPayment->JSON.Encode.bool),
             ("parentURL", "*"->JSON.Encode.string),
             ("analyticsMetadata", analyticsMetadata),
+            ("launchTime", launchTime->JSON.Encode.float),
           ]->Dict.fromArray
 
         let handleApplePayMounted = (event: Types.event) => {

src/orca-loader/Hyper.res

@@ -348,12 +348,17 @@ let make = (publishableKey, options: option<JSON.t>, analyticsInfo: option<JSON.
 
       let elements = elementsOptions => {
         open Promise
+        let elementsOptionsDict = elementsOptions->JSON.Decode.object
+        elementsOptionsDict
+        ->Option.forEach(x => x->Dict.set("launchTime", Date.now()->JSON.Encode.float))
+        ->ignore
+
         let clientSecretId =
-          elementsOptions
-          ->JSON.Decode.object
+          elementsOptionsDict
           ->Option.flatMap(x => x->Dict.get("clientSecret"))
           ->Option.flatMap(JSON.Decode.string)
           ->Option.getOr("")
+        let elementsOptions = elementsOptionsDict->Option.mapOr(elementsOptions, JSON.Encode.object)
         clientSecret := clientSecretId
         Js.Promise.make((~resolve, ~reject as _) => {
           logger.setClientSecret(clientSecretId)

src/orca-log-catcher/OrcaLogger.res

@@ -160,6 +160,7 @@ type setLogInfo = (
   ~internalMetadata: string=?,
   ~eventName: eventName,
   ~timestamp: string=?,
+  ~latency: float=?,
   ~logType: logType=?,
   ~logCategory: logCategory=?,
   ~paymentMethod: string=?,
@@ -198,6 +199,7 @@ let defaultLoggerConfig = {
     ~internalMetadata as _=?,
     ~eventName as _,
     ~timestamp as _=?,
+    ~latency as _=?,
     ~logType as _=?,
     ~logCategory as _=?,
     ~paymentMethod as _=?,
@@ -219,6 +221,7 @@ let defaultLoggerConfig = {
     ~internalMetadata as _=?,
     ~eventName as _,
     ~timestamp as _=?,
+    ~latency as _=?,
     ~logType as _=?,
     ~logCategory as _=?,
     ~paymentMethod as _=?,
@@ -558,14 +561,18 @@ let make = (
     ~internalMetadata="",
     ~eventName,
     ~timestamp=?,
+    ~latency=?,
     ~logType=INFO,
     ~logCategory=USER_EVENT,
     ~paymentMethod="",
     (),
   ) => {
     let eventNameStr = eventName->eventNameToStrMapper
     let firstEvent = events.contents->Dict.get(eventNameStr)->Option.isNone
-    let latency = calculateLatencyHook(~eventName, ())
+    let latency = switch latency {
+    | Some(lat) => lat->Float.toString
+    | None => calculateLatencyHook(~eventName, ())
+    }
     let localTimestamp = timestamp->Option.getOr(Date.now()->Belt.Float.toString)
     let localTimestampFloat = localTimestamp->Belt.Float.fromString->Option.getOr(Date.now())
     {
@@ -657,14 +664,18 @@ let make = (
     ~internalMetadata="",
     ~eventName,
     ~timestamp=?,
+    ~latency=?,
     ~logType=ERROR,
     ~logCategory=USER_ERROR,
     ~paymentMethod="",
     (),
   ) => {
     let eventNameStr = eventName->eventNameToStrMapper
     let firstEvent = events.contents->Dict.get(eventNameStr)->Option.isNone
-    let latency = calculateLatencyHook(~eventName, ())
+    let latency = switch latency {
+    | Some(lat) => lat->Float.toString
+    | None => calculateLatencyHook(~eventName, ())
+    }
     let localTimestamp = timestamp->Option.getOr(Date.now()->Belt.Float.toString)
     let localTimestampFloat = localTimestamp->Belt.Float.fromString->Option.getOr(Date.now())
     {