raboof/liminix
1
0
Fork 0
forked from dan/liminix
Code Pull Requests Activity

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