aboutsummaryrefslogtreecommitdiff
path: root/lib/client.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lib/client.lisp')
-rw-r--r--lib/client.lisp13
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