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

Allowing any user to add tag again

Browse Source
This commit is contained in:
Jay McCarthy 2013-10-31 10:57:04 -06:00
parent 7f90ace546
commit 5cb29f56f8
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pkgs/plt-services/meta/pkg-index/official/dynamic.rkt
View File

@ -279,19 +279,16 @@
(jsonp/package/tag/add
['pkg pkg]
['tag tag])
(ensure-package-author
pkg
(λ ()
(cond
[(valid-tag? tag)
(define i (package-info pkg))
(package-info-set!
pkg
(hash-set i 'tags (tags-normalize (cons tag (package-ref i 'tags)))))
(signal-static! (list pkg))
#t]
[else
#f]))))
(cond
[(valid-tag? tag)
(define i (package-info pkg))
(package-info-set!
pkg
(hash-set i 'tags (tags-normalize (cons tag (package-ref i 'tags)))))
(signal-static! (list pkg))
#t]
[else
#f]))
(define-jsonp/auth
(jsonp/package/tag/del