summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--qkbox/toot.scm8
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))