www

commit 6c22b670a6b90123e9ea389ca92c48b6d51f23d6
parent 69565cf853ce5bd8a8dc9f72f167f697ac034d77
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue, 12 Nov 2013 09:12:01 -0700

make snapshot-site: don't treat removed builds as failing

original commit: d2ec49179403fcff9f3c356dad75751f351b6a3b

Diffstat:
M
pkgs/distro-build/manage-snapshots.rkt
 | 
7
++++---

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/pkgs/distro-build/manage-snapshots.rkt b/pkgs/distro-build/manage-snapshots.rkt
@@ -59,7 +59,8 @@
                           (build-path snapshots-dir s installers-dir "table.rktd")))
       (for/fold ([table table]) ([(k v) (in-hash past-table)])
         (if (or (hash-ref current-table k #f)
-                (hash-ref table k #f))
+                (hash-ref table k #f)
+                (not (file-exists? (build-path site-dir "log" k))))
             table
             (hash-set table k (past-success s
                                             (string-append s "/index.html")
@@ -82,11 +83,11 @@
     (when (link-exists? file-link)
       (delete-file file-link))
     (make-file-or-directory-link to-file file-link))
-  ;; Current successes:
+  ;; Link current successes:
   (for ([f (in-list (directory-list installer-dir))])
     (when (regexp-match? current-rx f)
       (make-link f f)))
-  ;; Past successes:
+  ;; Link past successes:
   (for ([v (in-hash-values past-successes)])
     (when (regexp-match? current-rx (past-success-file v))
       (make-link (string->path (past-success-file v))