Replace YASON by Jonathan.

qlot-install.asd

@@ -14,7 +14,8 @@
                :salza2
                :gzip-stream
                :ironclad
-               :yason
+               :jonathan
+               :babel
                :alexandria
                :cl-ppcre
                :uiop

src/source/github.lisp

@@ -8,8 +8,10 @@
                 :url)
   (:import-from :qlot.http
                 :safety-http-request)
-  (:import-from :yason
+  (:import-from :jonathan
                 :parse)
+  (:import-from :babel
+                :octets-to-string)
   (:export :source-github
            :source-github-repos
            :source-github-ref
@@ -60,13 +62,13 @@
 (defun retrieve-source-git-ref-from-github (source)
   (let ((github-access-token (uiop:getenv "GITHUB_ACCESS_TOKEN")))
     (labels ((retrieve-from-github (action)
-               (yason:parse
-                (apply #'safety-http-request
-                       (format nil "https://api.github.com/repos/~A/~A" (source-github-repos source) action)
-                       :want-stream t
-                       (if github-access-token
-                           (list :basic-authorization (list github-access-token "x-oauth-basic"))
-                           '()))))
+               (let ((json
+                       (apply #'safety-http-request
+                              (format nil "https://api.github.com/repos/~A/~A" (source-github-repos source) action)
+                              (if github-access-token
+                                  (list :basic-authorization (list github-access-token "x-oauth-basic"))
+                                  '()))))
+                 (jojo:parse (babel:octets-to-string json) :as :hash-table)))
              (find-ref (results name)
                (let ((result (find-if (lambda (result)
                                         (string= (gethash "name" result) name))