From a70b636d44ddef5355c0ce99816e26d312a79191 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 14 Oct 2023 13:13:52 +0200
Subject: [PATCH] - fixed type of value 'tag-names';

- fixed a couple of docstrings.
---
 src/api-client.lisp | 4 ++--
 src/db.lisp         | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/api-client.lisp b/src/api-client.lisp
index 4ca1d8d..efacea3 100644
--- a/src/api-client.lisp
+++ b/src/api-client.lisp
@@ -499,12 +499,12 @@ database."
     (program-events:push-event event)))
 
 (defun-api-call get-remote-status (status-id)
-  "Get a single status identifird bu status-id"
+  "Get a single status identified bu `status-id'"
   (ignore-errors
     (tooter:find-status *client* status-id)))
 
 (defun-api-call get-status-context (status-id)
-  "Get a parent and a child of a status (identified by status-id), if exists"
+  "Get a parent and a child of a status (identified by `status-id'), if exists"
   (tooter:context *client* status-id))
 
 (defun-api-call send-status (content
diff --git a/src/db.lisp b/src/db.lisp
index 6d78bcd..c51e747 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -1282,7 +1282,7 @@ than (swconf:config-purge-history-days-offset) days in the past"
            (actual-application (prepare-for-db application))
            (tag-names          (if tags
                                    (mapcar #'client:tag-name tags)
-                                   ""))
+                                   '()))
            (actual-tags        (concat-tags object))
            (actual-language    (prepare-for-db language))
            ;; use string-downcase as a workaround because tooter return an upcased keyword