dan
/
liminix
1
0
Fork 5
Code Issues 2 Pull Requests 1 Projects Releases Wiki Activity

improve tangc http error messages

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]
(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)