diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/main.lisp | 6 | ||||
| -rw-r--r-- | src/package.lisp | 2 |
2 files changed, 4 insertions, 4 deletions
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)) |