Fix encoding error, files-ls, adding directory #13
|
@ -3,6 +3,6 @@
|
||||||
:license "LGPLv3"
|
:license "LGPLv3"
|
||||||
:author "Jaidyn Ann <jadedctrl@teknik.io>"
|
:author "Jaidyn Ann <jadedctrl@teknik.io>"
|
||||||
:description "Bindings for the IPFS HTTP API."
|
:description "Bindings for the IPFS HTTP API."
|
||||||
:depends-on (:drakma :yason :arnesi :uiop)
|
:depends-on (:alexandria :drakma :yason :arnesi :uiop)
|
||||||
:components ((:file "package")
|
:components ((:file "package")
|
||||||
(:file "main")))
|
(:file "main")))
|
||||||
|
|
|
@ -32,7 +32,9 @@
|
||||||
(let ((result
|
(let ((result
|
||||||
(multiple-value-list
|
(multiple-value-list
|
||||||
(drakma:http-request
|
(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
|
:method method
|
||||||
:url-encoder #'ipfs::url-encode
|
:url-encoder #'ipfs::url-encode
|
||||||
:parameters parameters
|
:parameters parameters
|
||||||
|
|
Ŝarĝante…
Reference in New Issue