From 0b55de2e6ed2a4ddcd315b5f894c427f972d973a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 10 Jun 2010 16:40:35 -0500 Subject: [PATCH] removed the minor version number from the planet status line in drracket so as not to confuse (since planet may actually supply a later version number) --- collects/planet/resolver.rkt | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/collects/planet/resolver.rkt b/collects/planet/resolver.rkt index cfc3e135eb..3cc8708e03 100644 --- a/collects/planet/resolver.rkt +++ b/collects/planet/resolver.rkt @@ -768,22 +768,18 @@ subdirectory. (abort (format "Internal error (unknown HTTP response code ~a)" response-code))])))))) -;; formats the pkg-spec back into a string the way the user typed it in. +;; formats the pkg-spec back into a string the way the user typed it in, +;; except it never shows the minor version number (since some later one may actually be being used) ;; assumes that the pkg-spec comes from the command-line (define (pkg-spec->string pkg) - (format "~a/~a~a~a" + (format "~a/~a~a" (if (pair? (pkg-spec-path pkg)) (car (pkg-spec-path pkg)) "<>") ;; this shouldn't happen (regexp-replace #rx"\\.plt$" (pkg-spec-name pkg) "") (if (pkg-spec-maj pkg) (format ":~a" (pkg-spec-maj pkg)) - "") - (cond - [(and (pkg-spec-maj pkg) - (pkg-spec-minor-lo pkg)) - (format ".~a" (pkg-spec-minor-lo pkg))] - [else ""]))) + ""))) ;; ============================================================================= ;; MODULE MANAGEMENT