Fix content-type of objects
From application/json → application/activity+json
This commit is contained in:
parent
3f69dca8bd
commit
233a76d571
|
@ -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 doesn’t exist!")))))
|
("Such an object doesn’t exist!")))))
|
||||||
|
|
Ŝarĝante…
Reference in New Issue