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