From 4d2afc4e3c6cc5ce5be4f0d421da49ca6cead09a Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 18 Feb 2022 13:55:10 -0600 Subject: logging in, redeeming tokens --- oneliners.api-client.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'oneliners.api-client.lisp') diff --git a/oneliners.api-client.lisp b/oneliners.api-client.lisp index 98c156d..8d43eae 100644 --- a/oneliners.api-client.lisp +++ b/oneliners.api-client.lisp @@ -47,7 +47,8 @@ header. COOKIES should be an instance of CL-COOKIE:COOKIE-JAR. Defaults to *COOKIES*. " - (let ((content-type-var (gensym))) + (let ((content-type-var (gensym)) + (http-error-var (gensym))) `(let ((*host* (or ,host *host*)) (*body* (or ,body *body*)) (*headers* (or ,headers *headers*)) @@ -55,7 +56,11 @@ COOKIES should be an instance of CL-COOKIE:COOKIE-JAR. Defaults to (,content-type-var ,content-type)) (when ,content-type-var (push (cons "Content-Type" ,content-type-var) *headers*)) - ,@forms))) + (handler-case (progn ,@forms) + (dex:http-request-failed (,http-error-var) + (format *error-output* "~a -- ~a" + (dex:response-status ,http-error-var) + (dex:response-body ,http-error-var))))))) (DEFUN GET--SEARCH (&KEY TAGS LIMIT NOTFLAGGED) -- cgit v1.2.3