From 9e2d1d636ddd04c2ab08228e85a265ff70f67ce5 Mon Sep 17 00:00:00 2001 From: "bnmcgn@gmail.com" Date: Mon, 15 Feb 2021 19:51:10 -0800 Subject: [PATCH] Add cid-version parameter to 'add' function. --- main.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main.lisp b/main.lisp index f97e636..0a0c80a 100644 --- a/main.lisp +++ b/main.lisp @@ -78,10 +78,10 @@ ;; ROOT CALLS ;; PATHNAME → (HASH-STRING SIZE-NUMBER) || (NIL STRING) -(defun add (pathname &key (pin 't) (only-hash nil)) +(defun add (pathname &key (pin 't) (only-hash nil) (cid-version 0)) "Add a file to IPFS, return it's hash. /ipns/docs.ipfs.io/reference/api/http/#api-v0-add" - (ipfs-call "add" `(("pin" ,pin) ("only-hash" ,only-hash)) + (ipfs-call "add" `(("pin" ,pin) ("only-hash" ,only-hash) ("cid-version" ,cid-version)) :parameters `(("file" . ,pathname)))) ;; STRING :NUMBER :NUMBER → STRING || (NIL STRING)