Fix content-type of objects

From application/json → application/activity+json
This commit is contained in:
Jaidyn Ann 2024-12-09 21:24:32 -06:00
parent 3f69dca8bd
commit 233a76d571

View File

@ -135,7 +135,7 @@ can be found). Uses the callback :FETCH, defined in *CONFIG*."
(append (list (getf *config* :host)) path-items))) (append (list (getf *config* :host)) path-items)))
(obj (fetch uri))) (obj (fetch uri)))
(if obj (if obj
(list 200 '(:content-type "application/json") (list 200 '(:content-type "application/activity+json")
(list (yason:with-output-to-string* () (yason:encode-object obj)))) (list (yason:with-output-to-string* () (yason:encode-object obj))))
`(400 (:content-type "text/plain") `(400 (:content-type "text/plain")
("Such an object doesnt exist!"))))) ("Such an object doesnt exist!")))))