From 4ba66148210a9d354c733cb0f1fc87a0c0d37c22 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 12 Jul 2020 19:05:03 +0900 Subject: qkbox: toot: Add #:streaming? keyword. qkbox/toot.scm(raw-request): Add #:streaming? keyword. --- qkbox/toot.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- cgit v1.2.3