Merge pull request #14 from BnMcGn/master

Bugfix: files-rm

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.
 
 
 ————————————————————————————————————————
@@ -118,6 +118,5 @@ BORING STUFF
 ————————————————————————————————————————
 License is the GNU LGPLv3:
        check COPYING.txt (/ipfs/QmR8Rnk5QdXgrXRqmgMLmG5PuHZEjujfa3rfVhPV99TLY7)
-Author is Jaidyn Ann <jadedctrl@teknik.io>
-Sauce is at https://git.feneas.org/detruota/cl-ipfs-api2
-            https://github.com/JadedCtrl/cl-ipfs-api2
+Author is Jaidyn Ann <jadedctrl@posteo.at>
+Sauce is at https://hak.xwx.moe/jadedctrl/cl-ipfs-api2

cl-ipfs-api2.asd

@@ -1,7 +1,7 @@
 (defsystem "cl-ipfs-api2"
 	   :version "0.51"
            :license "LGPLv3"
-	   :author "Jaidyn Ann <jadedctrl@teknik.io>"
+	   :author "Jaidyn Ann <jadedctrl@posteo.at>"
 	   :description "Bindings for the IPFS HTTP API."
 	   :depends-on (:drakma :yason :arnesi :uiop)
 	   :components ((:file "package")

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