From a52676d5c3a60adce297dd2c5a223aff36916849 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Fri, 23 Sep 2022 10:23:59 +0200
Subject: [PATCH] Ensure ipfs-call URL is a 'character string and not a
 base-string.

Otherwise it breaks PURI.
---
 cl-ipfs-api2.asd | 2 +-
 main.lisp        | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/cl-ipfs-api2.asd b/cl-ipfs-api2.asd
index 9e66186..e8d8fce 100755
--- a/cl-ipfs-api2.asd
+++ b/cl-ipfs-api2.asd
@@ -3,6 +3,6 @@
            :license "LGPLv3"
 	   :author "Jaidyn Ann <jadedctrl@teknik.io>"
 	   :description "Bindings for the IPFS HTTP API."
-	   :depends-on (:drakma :yason :arnesi :uiop)
+	   :depends-on (:alexandria :drakma :yason :arnesi :uiop)
 	   :components ((:file "package")
                  	(:file "main")))
diff --git a/main.lisp b/main.lisp
index 9f8e113..4514367 100644
--- a/main.lisp
+++ b/main.lisp
@@ -32,7 +32,9 @@
   (let ((result
           (multiple-value-list
            (drakma:http-request
-            (make-call-url call arguments)
+            ;; We ensure the string is of 'character elements and not 'base-char
+            ;; which would break Puri.
+            (alexandria:copy-array (make-call-url call arguments) :element-type 'character)
             :method method
             :url-encoder #'ipfs::url-encode
             :parameters parameters