farm: by default, pull git repo in clients from server

Makefile

@@ -200,6 +200,7 @@ built-catalog:
 # Run a catalog server to provide pre-built packages, as well
 # as the copy of the server's "collects" tree:
 built-catalog-server:
+	if [ -d ".git" ]; then git update-server-info ; fi
 	$(RACKET) -l distro-build/serve-catalog $(SERVE_DURING_CMD)
 
 # Demonstrate how a catalog server for binary packages works,

pkgs/distro-build/drive-clients.rkt

@@ -88,7 +88,7 @@
 ;;   #:timeout <number> --- numbers of seconds to wait before declaring
 ;;                          failure; defaults to 30 minutes
 ;;   #:repo <string> --- the git repository for Racket; defaults to
-;;                       "git://github.com/plt/racket.git"
+;;                       "http://<server>:9440/.git"
 ;;
 ;; Machine-only keywords:
 ;;   #:name <string> --- defaults to host
@@ -406,7 +406,7 @@
   (define dist-dir (or (get-opt c '#:dist-dir)
                        default-dist-dir))
   (define repo (or (get-opt c '#:repo)
-                   "git://github.com/plt/racket.git"))
+                   (~a "http://" server ":9440/.git")))
   ((case (or (get-opt c '#:platform) 'unix)
      [(unix) unix-build]
      [else windows-build])

pkgs/distro-build/serve-catalog.rkt

@@ -90,10 +90,12 @@
    #:command-line? #t
    #:listen-ip #f
    #:extra-files-paths
-   (cons
-    (build-path build-dir "origin")
+   (append
+    (list (build-path build-dir "origin"))
     (for/list ([d (in-list dirs)])
-      (path->complete-path (build-path d "pkgs"))))
+      (path->complete-path (build-path d "pkgs")))
+    ;; for ".git":
+    (list (current-directory)))
    #:servlet-regexp #rx""
    #:port 9440))