From a7dfdc052a931cc0cabfeb85151bcdad782f08c8 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 7 May 2022 17:06:25 +0200
Subject: Parse JSON from Jira response

Parse the Jira response into a hash that we can interact with.

Needed to do some finagling to get my "lib" submodule directory to be
searched for systems.
---
 src/main.lisp    | 6 ++----
 src/package.lisp | 2 ++
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/main.lisp b/src/main.lisp
index 7f6973f..31814bb 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -12,7 +12,7 @@
     :basic-auth-token "TOKEN"))
 
 (defun fetch-issues (jql &key basic-auth-token)
-  (multiple-value-bind (body code)
+  (jzon:parse
     (dex:post "https://example.atlassian.net/rest/api/3/search"
               :content
               (format nil "{
@@ -22,6 +22,4 @@
                       jql)
               :headers `((:content-type . "application/json")
                          (:authorization
-                          . ,(format nil "Basic ~A" basic-auth-token))))
-
-    body))
+                          . ,(format nil "Basic ~A" basic-auth-token))))))
diff --git a/src/package.lisp b/src/package.lisp
index a340f86..c48ccba 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -1,4 +1,6 @@
 (defpackage :wajir
   (:use :cl)
 
+  (:local-nicknames (:jzon :com.inuoe.jzon))
+
   (:export :main))
-- 
cgit v1.2.3