nassella/app
1
0
Fork 0
Code Issues 33 Pull Requests Packages Projects 1 Releases Wiki Activity

Updating flatcar and app versions.

Browse Source
This commit is contained in:
Thomas Hintz
2026-06-22 16:38:56 -07:00
parent 7df2c07313
commit 619b5ded6f
6 changed files with 19 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/db-init.sql
View File

@@ -96,3 +96,7 @@ create table migrations(
id bigserial primary key,
migration_id integer not null unique,
);
insert into migrations(migration_id) values(0);
insert into migrations(migration_id) values(1);
insert into migrations(migration_id) values(2);

5
src/nassella.scm
View File

@@ -1486,7 +1486,7 @@ chmod -R 777 /opt/keys")))
("cluster_name" . "nassella")
("datacenter" . ,(alist-ref 'digitalocean-region service-config))
;; (source <(curl -sSfL https://stable.release.flatcar-linux.net/amd64-usr/current/version.txt); echo "${FLATCAR_VERSION_ID}")
("flatcar_stable_version" . "4593.2.2")))
("flatcar_stable_version" . "4593.2.3")))
;; remove the newline that generating the ssh key adds
(display "ssh_keys=[\"") (display (string-drop-right ssh-pub-key 1)) (print "\"]"))))
(let* ((instance-id (alist-ref "id" (current-params) equal?))
@@ -1518,7 +1518,6 @@ chmod -R 777 /opt/keys")))
(version . 0))))
(thread-start!
(lambda ()
;; TODO add a timeout and set status to failed and error if we hit the timeout
(let ((start-time (time->seconds (current-time))))
(let loop ()
(thread-sleep! 1)
@@ -1790,7 +1789,7 @@ chmod -R 777 /opt/keys")))
("cluster_name" . "nassella")
("datacenter" . ,(alist-ref 'digitalocean-region service-config))
;; (source <(curl -sSfL https://stable.release.flatcar-linux.net/amd64-usr/current/version.txt); echo "${FLATCAR_VERSION_ID}")
("Flatcar_stable_version" . "4593.2.2")))
("Flatcar_stable_version" . "4593.2.3")))
;; remove the newline that generating the ssh key adds
(display "ssh_keys=[\"") (display (string-drop-right ssh-pub-key 1)) (print "\"]")))
;; TODO need a new table to track destroying?