[fix] draft deletion after publication

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