From 06ec0ee02e52321095a07eecd6d7b6ffcb6bd237 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 15 Feb 2022 16:10:08 -0600 Subject: changed json serialization of oneliner instances --- src/main.lisp | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'src/main.lisp') 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))))) -- cgit v1.2.3