diff options
-rw-r--r-- | src/main.lisp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/main.lisp b/src/main.lisp index ca44e96..b05d7bc 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -122,16 +122,16 @@ flagged-by audited-by lockedp) instance (json:with-object - (json:write-key-value "id" db::id) - (json:write-key-value "oneliner" oneliner) - (json:write-key-value "tags" tags) - (json:write-key-value "brief" brief) - (json:write-key-value "description" description) - (json:write-key-value "createdAt" created-at) - (json:write-key-value "editedAt" (if edited-at edited-at :null)) - (json:write-key-value "createdBy" (contributor-handle created-by)) - (json:write-key-value "isFlagged" (if (not (null flagged-by)) t :false)) - (json:write-key-value "isLocked" (if lockedp t :false))))) + (json:write-key-value :id db::id) + (json:write-key-value :oneliner oneliner) + (json:write-key-value :tags tags) + (json:write-key-value :brief brief) + (json:write-key-value :description description) + (json:write-key-value :createdAt created-at) + (json:write-key-value :editedAt (if edited-at edited-at :null)) + (json:write-key-value :createdBy (contributor-handle created-by)) + (json:write-key-value :isFlagged (if (not (null flagged-by)) t :false)) + (json:write-key-value :isLocked (if lockedp t :false))))) |