including name into oneliner response json body

1 files changed, 2 insertions, 1 deletions

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)