aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/client.lisp7
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/client.lisp b/lib/client.lisp
index 61c3130..b39e0ac 100644
--- a/lib/client.lisp
+++ b/lib/client.lisp
@@ -280,8 +280,11 @@ running the body. If such a oneliner can be found."
(api:request-with
(:body (oneliner-to-json-body local)
:content-type "application/json")
- (api:patch--oneliner-entry-edit (oneliner-id ol) :token (api-token))
- ;(merge-oneliners (list new-item)) ;;TODO: this is broken, wait for API update.
+ (let ((updated
+ (jonathan:parse
+ (api:patch--oneliner-entry-edit (oneliner-id ol) :token (api-token)))))
+ (merge-oneliners (list updated)))
+
(format t "Edits accepted~%")))))))
;;TODO: need to sync cache here.