diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-12 19:05:03 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-12 19:05:03 +0900 |
| commit | 4ba66148210a9d354c733cb0f1fc87a0c0d37c22 (patch) | |
| tree | 88bb8ad72bc88fff6c95f79415017abaa02096b2 | |
| parent | 3e41853e32cd7f9902517200287836d11048fa9f (diff) | |
qkbox: toot: Add #:streaming? keyword.
qkbox/toot.scm(raw-request): Add #:streaming? keyword.
| -rw-r--r-- | qkbox/toot.scm | 3 |
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))) |