From 747a3661c9b1fa7974a92ca2d6f7a985bf353351 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Fri, 4 Mar 2022 16:17:40 -0600
Subject: including name into oneliner response json body

---
 src/main.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/main.lisp')

diff --git a/src/main.lisp b/src/main.lisp
index 573f622..5e8bb5d 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -176,10 +176,11 @@
   (with-slots
         (db::id oneliner tags brief explanation
          created-at edited-at last-edited-by created-by
-         flagged-by audited-by lockedp runstyle)
+         flagged-by audited-by lockedp runstyle name)
       instance
     (json:with-object
       (json:write-key-value :id db::id)
+      (json:write-key-value :name (if name name :false))
       (json:write-key-value :oneliner oneliner)
       (json:write-key-value :tags tags)
       (json:write-key-value :brief brief)
-- 
cgit v1.2.3