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

pkg-push: use 'default in 'versions for current pkg info

Browse Source
This commit is contained in:
Matthew Flatt 2013-10-15 14:21:00 -06:00
parent 99427ea6c3
commit fdae9cb573
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkgs/plt-services/meta/pkg-push/push-catalog.rkt
View File

@ -167,14 +167,21 @@
(for ([p (in-list new-checksums&files)])
(sync-one (car p) (cdr p)))
;; Use 'default version, if any
(define (hash-ref* ht k def)
(define ht2 (hash-ref (hash-ref ht 'versions (hash))
'default
ht))
(hash-ref ht2 k (hash-ref ht k def)))
;; Update the catalog:
(let ([changed-pkgs
(for/hash ([(k v) (in-hash new-pkgs)]
#:unless (let ([ht (hash-ref current-pkgs k #hash())])
(and (equal? (hash-ref v 'source)
(hash-ref ht 'source #f))
(hash-ref* ht 'source #f))
(equal? (hash-ref v 'checksum)
(hash-ref ht 'checksum #f)))))
(hash-ref* ht 'checksum #f)))))
(define (add-tag v t)
(define l (hash-ref v 'tags '()))
(if (member t l)