Make simplified P2 index to remove dep on meta

collects/tests/planet2/basic-index.rkt

@@ -0,0 +1,23 @@
+#lang racket/base
+(require racket/list
+         racket/contract
+         web-server/http
+         web-server/dispatch)
+
+(define (response/sexpr v)
+  (response 200 #"Okay" (current-seconds)
+            #"text/s-expr" empty
+            (λ (op) (write v op))))
+
+(define (planet2-index/basic pkg-name->info)
+  (define (write-info req pkg-name)
+    (response/sexpr (pkg-name->info pkg-name)))
+  (define-values (dispatch get-url)
+    (dispatch-rules
+     [("pkg" (string-arg)) write-info]))
+  dispatch)
+
+(provide/contract
+ [planet2-index/basic
+  (-> (-> string? (hash/c symbol? any/c))
+      (-> request? response?))])

collects/tests/planet2/tests-locking.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 (require web-server/http
          web-server/servlet-env
-         meta/planet2-index/basic/main
+         "basic-index.rkt"
          "shelly.rkt"
          "util.rkt")
 

collects/tests/planet2/util.rkt

@@ -58,13 +58,11 @@
                  #:port 9999
                  #:extra-files-paths (list (build-path test-directory "test-pkgs"))))
 
-(require meta/planet2-index/basic/main)
+(require "basic-index.rkt")
 (define *index-ht-1* (make-hash))
 (define *index-ht-2* (make-hash))
 (define (start-planet2-server index-ht port)
   (serve/servlet (planet2-index/basic
-                  (λ ()
-                    (hash-keys index-ht))
                   (λ (pkg-name)
                     (define r (hash-ref index-ht pkg-name #f))
                     (printf "[>server ~a] ~a = ~a\n" port pkg-name r)