Create a gist now

Instantly share code, notes, and snippets.

@samth /add-catalog.rkt Secret
Last active Feb 7, 2016

What would you like to do?
#lang racket
(require pkg pkg/lib)
(define new-catalog "http://download.racket-lang.org/patches/web-server-1/")
(define current-config
(filter
(λ (e) (not (equal? e "")))
(regexp-split "\n" (with-output-to-string
(λ () (pkg-config-command #:installation #t "catalogs"))))))
(parameterize ([current-pkg-scope 'installation])
(with-pkg-lock
(pkg-config #t (cons "catalogs"
(cons new-catalog current-config)))))
(pkg-config-command "catalogs" #:installation #t)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment