diff options
| author | Teddy Wing | 2022-05-18 23:52:47 +0200 |
|---|---|---|
| committer | Teddy Wing | 2022-05-19 00:59:50 +0200 |
| commit | 3307447f4a5c361fc2812244cd20c3bbe9a91bdc (patch) | |
| tree | 5c08b6ed0581c5c3511e58ef409d171d18e35996 | |
| parent | 817ec6a76b0670cb6100d8819dc7d6f1f116fc89 (diff) | |
| download | wajir-3307447f4a5c361fc2812244cd20c3bbe9a91bdc.tar.bz2 | |
main: Re-enable Jira watching code
I had disabled this for testing, and also only operated on the first
issue in the list for the same reason.
| -rw-r--r-- | src/main.lisp | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/src/main.lisp b/src/main.lisp index 7a3db97..bd1e774 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -40,16 +40,12 @@ total)) ;; Watch each issue. - ; (loop for issue - ; across (gethash "issues" response) - ; do (watch-issue config issue)) - (let ((issue (aref (gethash "issues" response) 0))) - (watch-issue - config - issue - :basic-auth-token basic-auth-token) - - (return)) + (loop for issue + across (gethash "issues" response) + do (watch-issue + config + issue + :basic-auth-token basic-auth-token)) ;; Stop looping if we're on the last page of results. (when (> start-at @@ -86,10 +82,10 @@ (when (verbose config) (format t "Watching issue ~A~%" (gethash "key" issue))) - ; (add-watcher - ; (endpoint config) - ; issue - ; :basic-auth-token basic-auth-token) + (add-watcher + (endpoint config) + issue + :basic-auth-token basic-auth-token) (if (sendmail config) (deliver-email config issue))) |