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

snapshots: access current installers via "current" path

Browse Source 
original commit: 3afdf8c62258af6e0e4e8cd35deda9ca7868e885
This commit is contained in:
Matthew Flatt 2013-07-06 10:24:42 -06:00
parent cd6ee4e29f
commit ea23f1def5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,10 +45,13 @@
(printf "Removing snapshot ~a\n" s) (printf "Removing snapshot ~a\n" s)
(delete-directory/files (build-path snapshots-dir s)))) (delete-directory/files (build-path snapshots-dir s))))
(printf "Creating \"current\" link\n")
(make-file-or-directory-link current-snapshot link-file)
(make-download-page (build-path site-dir (make-download-page (build-path site-dir
installers-dir installers-dir
"table.rktd") "table.rktd")
#:installers-url (string-append current-snapshot "/installers/") #:installers-url "current/installers/"
#:dest (build-path snapshots-dir #:dest (build-path snapshots-dir
"index.html") "index.html")
#:git-clone (current-directory) #:git-clone (current-directory)
@ -56,6 +59,3 @@
(a ((href ,(string-append current-snapshot (a ((href ,(string-append current-snapshot
"/index.html"))) "/index.html")))
,current-snapshot)))) ,current-snapshot))))
(printf "Creating \"current\" link\n")
(make-file-or-directory-link current-snapshot link-file)