diff options
| -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))) |