summaryrefslogtreecommitdiff
path: root/qkbox
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2020-07-12 19:05:03 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2020-07-12 19:05:03 +0900
commit4ba66148210a9d354c733cb0f1fc87a0c0d37c22 (patch)
tree88bb8ad72bc88fff6c95f79415017abaa02096b2 /qkbox
parent3e41853e32cd7f9902517200287836d11048fa9f (diff)
qkbox: toot: Add #:streaming? keyword.
qkbox/toot.scm(raw-request): Add #:streaming? keyword.
Diffstat (limited to 'qkbox')
-rw-r--r--qkbox/toot.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index 6126ea1..3881934 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -548,7 +548,7 @@
(format #f "/api/v1/statuses/~a/unreblog" id)
#:authorization? #t))
-(define* (raw-request method path #:key (headers '()) (body "") authorization?)
+(define* (raw-request method path #:key (headers '()) (body "") authorization? streaming?)
(receive (res body)
(http-request (string-append "https://"
(current-mastodon-host)
@@ -563,6 +563,7 @@
"Bearer "
(current-mastodon-access-token)))))))
#:decode-body? #f
+ #:streaming? streaming?
#:body body)
(values res body)))