From 00d79f4173a05733b5f9295482b89384b3d2bebd Mon Sep 17 00:00:00 2001 From: "bnmcgn@gmail.com" Date: Thu, 30 May 2024 10:22:44 -0700 Subject: [PATCH] Bugfix: files-rm - Files-rm is working - Minor fixes to texts --- README.txt | 2 +- main.lisp | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/README.txt b/README.txt index fa85ab0..607e959 100644 --- a/README.txt +++ b/README.txt @@ -5,7 +5,7 @@ CL-IPFS-API² :cl-ipfs-api² is a pretty simple set of IPFS bindings for Common Lisp, using the HTTP API for (almost) everything, except for pubsub (which uses the locally installed go-ipfs program). -It uses Dexador, YASON, and UIOP. +It uses Drakma, YASON, and UIOP. ———————————————————————————————————————— diff --git a/main.lisp b/main.lisp index 2ea88c7..98f2a14 100644 --- a/main.lisp +++ b/main.lisp @@ -491,13 +491,13 @@ (defun files-rm (path &key (recursive nil) (force nil)) "Remove a given file. /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-rm" - (ipfs-call "files/read" `(("arg" ,source) ("recursive" ,recursive) + (ipfs-call "files/rm" `(("arg" ,path) ("recursive" ,recursive) ("force" ,force)))) ;; STRING → ALIST || (NIL STRING) (defun files-stat (path) - "Remove a given file. - /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-rm" + "Get file status. + /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-stat" (ipfs-call "files/stat" `(("arg" ,path)))) ;; PATHNAME STRING [:NUMBER :BOOLEAN :BOOLEAN :BOOLEAN :NUMBER :BOOLEAN