summaryrefslogtreecommitdiff
path: root/neocities
diff options
context:
space:
mode:
Diffstat (limited to 'neocities')
-rw-r--r--neocities/api.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/neocities/api.scm b/neocities/api.scm
index a2017a7..83f2afe 100644
--- a/neocities/api.scm
+++ b/neocities/api.scm
@@ -36,6 +36,7 @@
neocities-list
neocities-key
neocities-upload
+ neocities-success?
))
(define-record-type <neocities-auth-api-key>
@@ -125,3 +126,6 @@
#:content-type (string-append "multipart/form-data; boundary=" boundary)
#:body body
#:auth (encode-auth (neocities-api-auth api))))))
+
+(define (neocities-success? response)
+ (string=? (assoc-ref response "result") "success"))