aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@riseup.net>2024-08-19 12:08:53 +0200
committermarty hiatt <martianhiatus@riseup.net>2024-08-19 12:08:53 +0200
commitffcd7553d708c775127946dfe638cba0cda34312 (patch)
tree3b63c86fd2fcc20a17136b2938ef878f479296f3
parentd17192806a814733e184af23b8f7f9c9fd1a2357 (diff)
comment re instance JSON error
-rw-r--r--lisp/mastodon-http.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el
index 1b624ee..39c1036 100644
--- a/lisp/mastodon-http.el
+++ b/lisp/mastodon-http.el
@@ -249,6 +249,10 @@ Callback to `mastodon-http--get-response-async', usually
(string-prefix-p "\n[" json-string)))
(error "%s" json-string))
(t
+ ;; instance may return error in JSON e.g. ((error . "Record not
+ ;; found")) for a null endpoint. but we don't error here because
+ ;; sometimes we just want to check for such an error in an
+ ;; if/cond.
`(,(json-read-from-string json-string) . ,headers))))))
(defun mastodon-http--process-headers ()