suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

/jsonp/package/modify-all -> /api/package/modify-all

Browse Source
This commit is contained in:
Tony Garnock-Jones 2016-08-02 21:08:23 -04:00
parent ce084c25d9
commit d38f1c1f16
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/site.rkt
View File

@ -1187,18 +1187,14 @@
(and (or (equal? old-name name)
;; Don't let renames stomp on existing packages
(not (package-detail (string->symbol name))))
(jsonp-rpc! "/jsonp/package/modify-all"
'()
#:post-data
(string->bytes/utf-8
(jsexpr->string
(hash 'pkg old-name
'name name
'description description
'source source
'tags tags
'authors authors
'versions versions))))
(eq? #t (simple-json-rpc! "/api/package/modify-all"
(hash 'pkg old-name
'name name
'description description
'source source
'tags tags
'authors authors
'versions versions)))
(let* ((new-pkg (or old-pkg (hash)))
(new-pkg (hash-set new-pkg 'name name))
(new-pkg (hash-set new-pkg 'description description))