diff options
| author | Teddy Wing | 2022-05-07 17:53:39 +0200 |
|---|---|---|
| committer | Teddy Wing | 2022-05-07 17:53:39 +0200 |
| commit | ad6751cf6170a1aee72488463780c6e9e626ffa7 (patch) | |
| tree | 0c8cb44659cb41e50d43d0fa26451ab01889d982 | |
| parent | 8a7877c9ceabf9ca9221551d3451818e13224714 (diff) | |
| download | wajir-ad6751cf6170a1aee72488463780c6e9e626ffa7.tar.bz2 | |
fetch-issues: Move Atlassian URL endpoint to argument
This needs to be configurable as it will be different for each
organisation.
| -rw-r--r-- | src/main.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/main.lisp b/src/main.lisp index 39b8fb5..d71f4e8 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -8,12 +8,13 @@ ;; Continue to next page (fetch-issues + "https://example.atlassian.net" "project = \\\"FAKE\\\" AND watcher != currentUser() AND key > \\\"FAKE-100\\\" ORDER BY created DESC" :basic-auth-token "TOKEN")) -(defun fetch-issues (jql &key basic-auth-token) +(defun fetch-issues (endpoint jql &key basic-auth-token) (jzon:parse - (dex:post "https://example.atlassian.net/rest/api/3/search" + (dex:post (format nil "~A/rest/api/3/search" endpoint) :content (jzon:stringify `((:jql . ,jql) |