diff options
| -rw-r--r-- | lib/client.lisp | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/client.lisp b/lib/client.lisp index 13bf2fe..9f92c6e 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -269,13 +269,12 @@ running the body. If such a oneliner can be found." (:body (oneliner-to-json-body ol) :content-type "application/json") (let ((updated - (if (oneliner-id ol) - (api:patch--oneliner-entry-edit (oneliner-id ol) :token (api-token)) - (api:post--oneliner :token (api-token))))) - (merge-oneliners (list updated))) - ;; if that worked, no http error occured, so this next part will run - (drop-draft name) - (format t "Draft ~a published and removed from drafts.~%" name)))) + (jonathan:parse (if (oneliner-id ol) + (api:patch--oneliner-entry-edit (oneliner-id ol) :token (api-token)) + (api:post--oneliner :token (api-token)))))) + (merge-oneliners (list updated)) + (drop-draft name) + (format t "Draft ~a published and removed from drafts.~%" name))))) ;;; ADMIN OF ONELINER ENTRIES |