Fixing error during initial upload in P2 PNS

This commit is contained in:
Jay McCarthy 2012-11-08 14:20:09 -07:00
parent ddd03347ea
commit ec269fc1cf

View File

@ -592,16 +592,18 @@
([class "package"]) ([class "package"])
(form ([action ,(embed/url form-handler)] [method "post"]) (form ([action ,(embed/url form-handler)] [method "post"])
,the-table) ,the-table)
(div ([class "install"]) ,(if pkg-name
"Install this package with:" (br) (br) `(div ([class "install"])
(tt "raco pkg install " ,pkg-name) (br) (br) "Install this package with:" (br) (br)
"or, by evaluating:" (br) (tt "raco pkg install " ,pkg-name) (br) (br)
(pre "or, by evaluating:" (br)
,(format "~a\n~a\n~a\n" (pre
"#lang racket" ,(format "~a\n~a\n~a\n"
"(require planet2)" "#lang racket"
(format "(install \"~a\")" "(require planet2)"
pkg-name))))))))) (format "(install \"~a\")"
pkg-name))))
""))))))
(define (page/manage/update req) (define (page/manage/update req)
(update-checksums (update-checksums