Skip to content

Instantly share code, notes, and snippets.

@samth
Last active February 7, 2016 17:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save samth/c81e1e2fabc744759970 to your computer and use it in GitHub Desktop.
Save samth/c81e1e2fabc744759970 to your computer and use it in GitHub Desktop.
#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