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

Generate tgz in snapshots, and use #:dist-base-version.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2021-05-13 13:16:51 -04:00
parent 227d48e732
commit 92012b80eb
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
.github/workflows/site-small.rkt vendored
View File

@ -47,36 +47,32 @@
#:tgz? #t))) #:tgz? #t)))
(define (dist-base minimal?) (define (dist-base minimal?)
(format (if minimal? "racket-minimal-~a" "racket-~a") (stamp))) (if minimal? "racket-minimal" "racket"))
(define (cs-machine #:name name #:pkgs [pkgs distro-content]) (define (cs-machine #:name name #:pkgs [pkgs distro-content])
(machine (sequential
#:dist-base (dist-base (null? pkgs)) #:dist-base (dist-base (null? pkgs))
#:dist-suffix ""
#:j 2 #:j 2
#:log-file (convert-log-name name) #:log-file (convert-log-name name)
#:name name
#:pkgs pkgs #:pkgs pkgs
#:timeout (* 60 60 (if (null? pkgs) 1/2 2)) ;; 2 hours for the full build #:timeout (* 60 60 (if (null? pkgs) 1/2 2)) ;; 2 hours for the full build
#:variant 'cs #:variant 'cs
#:versionless? #t)) (machine/sh+tgz #:name name)))
(define (bc-machine #:name name #:pkgs [pkgs distro-content]) (define (bc-machine #:name name #:pkgs [pkgs distro-content])
(machine (sequential
;; these three lines are because it's the non-default build ;; these three lines are because it's the non-default build
#:dir "bc-build" #:dir "bc-build"
#:repo source-dir #:repo source-dir
#:pull? #f #:pull? #f
;; this is just usual configuration (mirrored for cs-machine) ;; this is just usual configuration (mirrored for cs-machine)
#:dist-base (dist-base (null? pkgs)) #:dist-base (dist-base (null? pkgs))
#:dist-suffix ""
#:j 2 #:j 2
#:log-file (convert-log-name name) #:log-file (convert-log-name name)
#:name name
#:pkgs pkgs #:pkgs pkgs
#:timeout (* 60 60 (if (null? pkgs) 1/2 2)) ;; 2 hours for the full build #:timeout (* 60 60 (if (null? pkgs) 1/2 2)) ;; 2 hours for the full build
#:variant 'bc #:variant 'bc
#:versionless? #t)) (machine/sh+tgz #:name name)))
;; The overall configuration: ;; The overall configuration:
(sequential (sequential
@ -87,6 +83,8 @@
#:site-title (format "Snapshot: ~a ~a" (stamp) (parameterize ([date-display-format 'iso-8601]) (date->string (current-date)))) #:site-title (format "Snapshot: ~a ~a" (stamp) (parameterize ([date-display-format 'iso-8601]) (date->string (current-date))))
#:build-stamp (stamp) #:build-stamp (stamp)
#:fail-on-client-failures #f #:fail-on-client-failures #f
#:dist-base-version (stamp)
#:dist-suffix ""
(sequential (sequential
(bc-machine #:name "Racket BC (Ubuntu 18.04, x86_64)") (bc-machine #:name "Racket BC (Ubuntu 18.04, x86_64)")
(bc-machine #:name "Minimal Racket BC (Ubuntu 18.04, x86_64)" #:pkgs null)) (bc-machine #:name "Minimal Racket BC (Ubuntu 18.04, x86_64)" #:pkgs null))