pass queue id (#465)

* pass queue id * fix production condition of text message dlr
uzh · Dec 2, 2024 · 35c324b · 35c324b
1 parent 0fe3533
commit 35c324b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/pool/app/text_message/text_message_service.ml b/pool/app/text_message/text_message_service.ml
@@ -234,13 +234,13 @@ module Job = struct
       let open Cohttp in
       let dlr =
         if is_production ()
-        then None
-        else
+        then
           let open CCOption in
           id
           >|= CCPair.make tenant_url
           |> get_exn_or "Text message service: No instance id provided"
           |> return
+        else None
       in
       let%lwt resp, body_string = send_message ?dlr api_key message in
       (match

diff --git a/pool/pool_queue/pool_queue.ml b/pool/pool_queue/pool_queue.ml
@@ -167,7 +167,7 @@ let run_job
   in
   let%lwt result =
     Lwt.catch
-      (fun () -> handle database_label input)
+      (fun () -> handle ~id database_label input)
       (log_reraise
          "Exception caught while running job, this is a bug in your job \
           handler. Don't throw exceptions there, use CCResult.t instead.")