Fix: (ement-put-account-data) Variable assignment

This commit is contained in:
Adam Porter 2022-05-12 13:47:44 -05:00
parent 578a0babad
commit 284d7ff4b2

View file

@ -200,7 +200,7 @@ If UNIGNORE-P (interactively, with prefix), un-ignore USER."
"Put account data of TYPE with DATA on SESSION. "Put account data of TYPE with DATA on SESSION.
Also handle the echoed-back event." Also handle the echoed-back event."
(declare (indent defun)) (declare (indent defun))
(pcase-let* (((cl-struct ement-session (user (cl-struct ement-user (id user-id))))) (pcase-let* (((cl-struct ement-session (user (cl-struct ement-user (id user-id)))) session)
(endpoint (format "user/%s/account_data/%s" (url-hexify-string user-id) type))) (endpoint (format "user/%s/account_data/%s" (url-hexify-string user-id) type)))
(ement-api session endpoint :method 'put :data (json-encode data) (ement-api session endpoint :method 'put :data (json-encode data)
:then then))) :then then)))