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 (jsonp/package/tag/add
['pkg pkg] ['pkg pkg]
['tag tag]) ['tag tag])
(ensure-package-author (cond
pkg [(valid-tag? tag)
(λ () (define i (package-info pkg))
(cond (package-info-set!
[(valid-tag? tag) pkg
(define i (package-info pkg)) (hash-set i 'tags (tags-normalize (cons tag (package-ref i 'tags)))))
(package-info-set! (signal-static! (list pkg))
pkg #t]
(hash-set i 'tags (tags-normalize (cons tag (package-ref i 'tags))))) [else
(signal-static! (list pkg)) #f]))
#t]
[else
#f]))))
(define-jsonp/auth (define-jsonp/auth
(jsonp/package/tag/del (jsonp/package/tag/del