www

commit ea23f1def588414f76e750f3b2c338eca0da1e2f
parent cd6ee4e29f3adda7efb61abf0fa31e0241e801b2
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat,  6 Jul 2013 10:24:42 -0600

snapshots: access current installers via "current" path

original commit: 3afdf8c62258af6e0e4e8cd35deda9ca7868e885

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

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/pkgs/distro-build/manage-snapshots.rkt b/pkgs/distro-build/manage-snapshots.rkt
@@ -45,10 +45,13 @@
     (printf "Removing snapshot ~a\n" 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
                                 installers-dir
                                 "table.rktd")
-                    #:installers-url (string-append current-snapshot "/installers/")
+                    #:installers-url "current/installers/"
                     #:dest (build-path snapshots-dir
                                        "index.html")
                     #:git-clone (current-directory)
@@ -56,6 +59,3 @@
                                         (a ((href ,(string-append current-snapshot
                                                                   "/index.html")))
                                            ,current-snapshot))))
-
-(printf "Creating \"current\" link\n")
-(make-file-or-directory-link current-snapshot link-file)