From 63ab3308687649b0fb7c0882872d9167a9142266 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Tue, 27 Sep 2022 17:06:41 +0200
Subject: [PATCH] Fix files-rm.

---
 main.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/main.lisp b/main.lisp
index b1611fb..6af98af 100644
--- a/main.lisp
+++ b/main.lisp
@@ -522,8 +522,8 @@
 (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)
-                                            ("force" ,force))))
+  (ipfs-call "files/rm" `(("arg" ,path) ("recursive" ,recursive)
+                          ("force" ,force))))
 
 ;; STRING → ALIST || (NIL STRING)
 (defun files-stat (path)