From dffe134e13b93f05ea515b6359d6edc0b2374f0b Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Wed, 8 Jul 2020 09:56:53 +0900
Subject: qkbox: toot: Fix post procedure.

---
 qkbox/toot.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'qkbox/toot.scm')

diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index d52314d..122e1bf 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -41,9 +41,9 @@
   (post-json
    "/api/v1/statuses"
    `(,@(if status
-           `(status . ,(if (string? status)
-                           status
-                           (format #f "~y" status)))
+           `((status . ,(if (string? status)
+                             status
+                             (format #f "~y" status))))
            '())
      ,@(if spoiler-text
            `((spoiler_text . ,spoiler-text))
-- 
cgit v1.2.3