diff options
| author | Teddy Wing | 2022-05-07 17:41:50 +0200 |
|---|---|---|
| committer | Teddy Wing | 2022-05-07 17:53:30 +0200 |
| commit | 8a7877c9ceabf9ca9221551d3451818e13224714 (patch) | |
| tree | 1f984a15aa209cd4d407baa98dbcc4be5d986afd | |
| parent | 6809f12b4c19b21de24ae4bfb7ce20fe8547daf6 (diff) | |
| download | wajir-8a7877c9ceabf9ca9221551d3451818e13224714.tar.bz2 | |
fetch-issues: Change POST data to Lisp alist
Instead of POSTing a string literal, define it with an alist and use
'jzon' to convert it to JSON.
| -rw-r--r-- | src/main.lisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/main.lisp b/src/main.lisp index 31814bb..39b8fb5 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -15,11 +15,9 @@ (jzon:parse (dex:post "https://example.atlassian.net/rest/api/3/search" :content - (format nil "{ - \"jql\": \"~A\", - \"fields\": [\"id\", \"key\", \"self\"] - }" - jql) + (jzon:stringify + `((:jql . ,jql) + (fields . ("id" "key" "self")))) :headers `((:content-type . "application/json") (:authorization . ,(format nil "Basic ~A" basic-auth-token)))))) |