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

snapshot management: add "current" link

Browse Source 
original commit: 888ec4dae874811ad0e35299177c659e2bb53e4d
This commit is contained in:
Matthew Flatt 2013-07-06 05:50:03 -06:00
parent 5c2efaf5ba
commit 55fd8e7fe9
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,6 +26,12 @@
(define snapshots-dir (build-path site-dir 'up))
(define link-file (build-path snapshots-dir "current"))
(when (link-exists? link-file)
(printf "Removing old \"current\" link\n")
(delete-file link-file))
(define snapshots (for/list ([p (in-list (directory-list snapshots-dir))]
#:when (directory-exists? (build-path snapshots-dir p)))
(path-element->string p)))
@ -50,3 +56,6 @@
(a ((href ,(string-append current-snapshot
"/index.html")))
,current-snapshot))))
(printf "Creating \"current\" link\n")
(make-file-or-directory-link current-snapshot link-file)