commit 699cf97206ffb912a13b7364f8acd916214eaff8 parent cd0093279c07fb72db91ed2580bc91bda7bec74a Author: Daniel Barlow <dan@telent.net> Date: Tue, 3 Sep 2024 22:50:55 +0100 improve tangc http error messages Diffstat:
| M | pkgs/tangc/tangc.fnl | | | 18 | +++++++++--------- |
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/pkgs/tangc/tangc.fnl b/pkgs/tangc/tangc.fnl @@ -102,19 +102,19 @@ (fn http-post [url body] (match - (http.request "POST" url - "" 0 - "application/x-www-form-urlencoded" - body) - s (json.decode s) - (nil err) (error err))) + (http.request "POST" url + "" 0 + "application/x-www-form-urlencoded" + body) + s (json.decode s) + (nil code msg) (error (.. "Error " code " POST " url ": " msg)))) (fn http-get [url body] (match - (http.fetch url) - s (json.decode s) - (nil code msg) (error (.. "Error: " code ": " msg)))) + (http.fetch url) + s (json.decode s) + (nil code msg) (error (.. "Error " code " GET " url ": " msg)))) (fn decrypt [] (let [b64 (base64 :url)