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

add installed-pkg-names

Browse Source
This commit is contained in:
Robby Findler 2013-04-05 09:38:43 -05:00
parent eb7c5ad84c
commit e3b580c200
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/pkg/lib.rkt
View File

@ -1133,6 +1133,11 @@
(list (~a (package-directory pkg))) (list (~a (package-directory pkg)))
empty)))))))) empty))))))))
(define (installed-pkg-names)
(with-package-lock/read-only
(define db (read-pkg-db))
(sort (hash-keys db) string-ci<=?)))
(define (config-cmd config:set key+vals) (define (config-cmd config:set key+vals)
(cond (cond
[config:set [config:set
@ -1289,4 +1294,6 @@
#:ignore-checksums? boolean?) #:ignore-checksums? boolean?)
(or/c #f (listof (or/c path-string? (non-empty-listof path-string?)))))] (or/c #f (listof (or/c path-string? (non-empty-listof path-string?)))))]
[get-default-package-scope [get-default-package-scope
(-> (or/c 'i 'u 's))])) (-> (or/c 'i 'u 's))]
[installed-pkg-names
(-> (listof string?))]))