fix(rtc): keys are string after malli-encode

This commit is contained in:
rcmerci
2024-09-04 17:37:50 +08:00
parent 29b73c53aa
commit 7e3b5b68e3

View File

@@ -25,7 +25,7 @@
(m/sp
(let [decoded-message (rtc-const/data-to-ws-coercer (assoc message :req-id "temp-id"))
message-str (js/JSON.stringify (clj->js (select-keys (rtc-const/data-to-ws-encoder decoded-message)
[:graph-uuid :ops :t-before])))
["graph-uuid" "ops" "t-before"])))
len (.-length (utf8/encode message-str))]
(when (< 100000 len)
(let [{:keys [url key]} (m/? (ws/send&recv ws {:action "presign-put-temp-s3-obj"}))