dan/liminix
1
0
Fork 5
Code

improve tangc http error messages

Browse Source
This commit is contained in:
Daniel Barlow 2024-09-03 22:50:55 +01:00
parent cd0093279c
commit 699cf97206
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkgs/tangc/tangc.fnl
View File

@ -102,19 +102,19 @@
(fn http-post [url body] (fn http-post [url body]
(match (match
(http.request "POST" url (http.request "POST" url
"" 0 "" 0
"application/x-www-form-urlencoded" "application/x-www-form-urlencoded"
body) body)
s (json.decode s) s (json.decode s)
(nil err) (error err))) (nil code msg) (error (.. "Error " code " POST " url ": " msg))))
(fn http-get [url body] (fn http-get [url body]
(match (match
(http.fetch url) (http.fetch url)
s (json.decode s) s (json.decode s)
(nil code msg) (error (.. "Error: " code ": " msg)))) (nil code msg) (error (.. "Error " code " GET " url ": " msg))))
(fn decrypt [] (fn decrypt []
(let [b64 (base64 :url) (let [b64 (base64 :url)