www

commit 0172c948bd006070613becf1156de6386aaf1680
parent b5ce1c74a58ca4615e4fb5684e372f5b6af92478
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 28 Jun 2013 08:09:11 -0600

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

original commit: fd982c55b14a79a318a4b79af0ef15a71e2902cb

Diffstat:
M
pkgs/distro-build/drive-clients.rkt
 | 
4
++--
M
pkgs/distro-build/serve-catalog.rkt
 | 
8
+++++---

2 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/pkgs/distro-build/drive-clients.rkt b/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])
diff --git a/pkgs/distro-build/serve-catalog.rkt b/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))