skip api key verification in non productive environments (#255)

* skip api key verification in non productive environments * fix message string
uzh · Nov 10, 2023 · 6112735 · 6112735
1 parent 1301a3e
commit 6112735
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/pool/app/text_message/text_message_service.ml b/pool/app/text_message/text_message_service.ml
@@ -215,9 +215,14 @@ let test_api_key ~tags api_key cell_phone tenant_title =
            body_string);
        Lwt.return_ok api_key)
   | false ->
-    Pool_common.Message.TextMessageInterceptionError
-      "Sending text message intercepted"
-    |> Lwt.return_error
+    let (_ : Pool_common.Message.error) =
+      Pool_common.Utils.with_log_error
+        ~level:Logs.Warning
+        (Pool_common.Message.TextMessageInterceptionError
+           "Verifying API Key: Skip validation due to non production \
+            environment!")
+    in
+    api_key |> Lwt.return_ok
 ;;
 
 module Job = struct