From 9495145ea5dde488219e5979de956756df2b9be3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 17 Aug 2011 06:03:37 -0500 Subject: [PATCH] add more info to try to debug planet failure --- collects/planet/private/resolver.rkt | 8 ++++++-- collects/tests/planet/thread-safe-resolver.rkt | 2 +- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/planet/private/resolver.rkt b/collects/planet/private/resolver.rkt index edd8e93133..3f1d0a5186 100644 --- a/collects/planet/private/resolver.rkt +++ b/collects/planet/private/resolver.rkt @@ -515,9 +515,13 @@ subdirectory. (delete-file tmpfile-path)) ;; remove the tmp file, we're done with it final)] [(list #f str) - (string-append "PLaneT could not find the requested package: " str)] + (string-append (format "PLaneT could not find the package ~s: " + (pkg-spec->string pkg)) + str)] [(? string? s) - (string-append "PLaneT could not download the requested package: " s)])) + (string-append (format "PLaneT could not download the package ~s: " + (pkg-spec->string pkg)) + s)])) (define (download-package pkg) (unless (download?) diff --git a/collects/tests/planet/thread-safe-resolver.rkt b/collects/tests/planet/thread-safe-resolver.rkt index d02e3ae278..08550eb89a 100644 --- a/collects/tests/planet/thread-safe-resolver.rkt +++ b/collects/tests/planet/thread-safe-resolver.rkt @@ -3,7 +3,7 @@ rackunit racket/port) -(define debug? #f) +(define debug? #t) (define (install-one package-spec key) (define op (open-output-string))