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)))
(obj (fetch uri)))
(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))))
`(400 (:content-type "text/plain")
("Such an object doesnt exist!")))))