raco pkg catalog-show: improve error for bad catalog

2014-06-02 07:01:35 +01:00 · 2014-06-02 07:01:35 +01:00 · a718aeb441
commit a718aeb441
parent e4bf7ef55b
1 changed files with 4 additions and 0 deletions
--- a/racket/collects/pkg/lib.rkt
+++ b/racket/collects/pkg/lib.rkt
@ -3015,6 +3015,10 @@
             (values (path-element->string i)
                     (call-with-input-file* (build-path pkg-path i)
                                            read)))]))))
+    (unless one-ht
+      (pkg-error (~a "could not read package catalog\n"
+                     "  catalog: ~a")
+                 (url->string i)))
    (for/fold ([ht ht]) ([(k v) (in-hash one-ht)])
      (if (hash-ref ht k #f)
          ht