suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Matthew Flatt 2013-11-12 09:12:01 -07:00
parent 13a3c6c5c8
commit d2ec491794
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/distro-build/manage-snapshots.rkt
View File

@ -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))