[back] add missing category types

back/server.lisp

@@ -102,7 +102,7 @@
   (with-gensyms (query-string query-params)
     `(let ((,category (getsym ,params :category)))
        (case ,category
-         ((artist year album genre type status)
+         ((artist year album publisher country genre type status)
           (let* ((,query-string (getf myway:*env* :query-string))
                  (,query-params (and ,query-string (quri:url-decode-params ,query-string)))
                  (,filter (aget ,query-params "filter"))
@@ -125,9 +125,10 @@
   (with-output-to-string*
     (with-array
       (loop for (cat . count) in results
-         do (with-object
-              (write-key-value "item" cat)
-              (write-key-value "count" count))))))
+         do (write-item
+             (with-object
+               (write-key-value "item" cat)
+               (write-key-value "count" count)))))))
 
 (defun get-category (params)
   (declare #.*standard-optimize-settings*)