diff options
| -rw-r--r-- | qkbox/toot.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm index 796d9c1..a90389b 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -17,13 +17,13 @@ #:key spoiler-text visibility - sensitive + sensitive? reply-to) (define-values (res body) (/api/v1/statuses #:status status #:spoiler-text spoiler-text #:visibility visibility - #:sensitive sensitive + #:sensitive? sensitive? #:reply-to reply-to)) (case (response-code res) ((200) @@ -35,7 +35,7 @@ status spoiler-text visibility - sensitive + sensitive? reply-to media-ids) (post-json @@ -55,7 +55,7 @@ (else (error "post: invalid visibility (must be one of: public unlisted private direct)"))) '()) - ,@(if sensitive `((sensitive . (if sensitive #t #f))) + ,@(if sensitive? `((sensitive . (if sensitive? #t #f))) '()) ,@(if reply-to `((in_reply_to_id . ,reply-to)) |