jadedctrl/ cl-ipfs-api2
1
0
Disbranĉigi 0
Fontkodo Issues 6 Tirpetoj 1 Activity

Fix encoding error, files-ls, adding directory #13

Open
Ambrevar wants to merge 6 commits from Ambrevar/master into master
pull from: Ambrevar/master
merge into: jadedctrl:master
Conversation 0 Enmetoj 6 Files Changed 2 +4 -2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 09ebe83f37 - Show all commits

6
main.lisp
View File

@ -48,8 +48,10 @@
(let* ((result (cond ((stringp body) body) (let* ((result (cond ((stringp body) body)
((vectorp body) (flexi-streams:octets-to-string body)))) ((vectorp body) (flexi-streams:octets-to-string body))))
(result (if (search "application/json" (cdr (assoc :content-type headers))) (result (if (search "application/json" (cdr (assoc :content-type headers)))
(unless (empty-string-p result) (mapcar (lambda (line)
(simplify (yason:parse result :object-as :alist))) (simplify (yason:parse line :object-as :alist)))
(delete "" (uiop:split-string result :separator (string #\newline))
:test 'string=))
result))) result)))
(if (eql 200 status-code) (if (eql 200 status-code)
result result