add more migration code, rename codegen template
This commit is contained in:
parent
ed503363a4
commit
3dae54ad85
|
@ -39,7 +39,7 @@
|
|||
;; and faster)
|
||||
|
||||
;; ok gamer move time
|
||||
(define-runtime-path codegen-template "codegen.template")
|
||||
(define-runtime-path codegen-template "codegen.rktc")
|
||||
(define (pattern-codegen pattern mode pp-start pp-end)
|
||||
(eval-template
|
||||
`(file ,(path->string codegen-template))
|
||||
|
|
|
@ -5,7 +5,15 @@
|
|||
-- @up {
|
||||
create table tasks (id integer primary key, name text not null, manifest blob not null);
|
||||
-- }
|
||||
-- @up {
|
||||
create table nodes (id integer primary key, name text not null,
|
||||
type text check(type in ("client", "agent")) not null,
|
||||
secret blob(32) not null)
|
||||
-- }
|
||||
|
||||
-- @down {
|
||||
drop table nodes;
|
||||
-- }
|
||||
-- @down {
|
||||
drop table tasks;
|
||||
-- }
|
|
@ -39,6 +39,9 @@
|
|||
|
||||
;; this allows the server to be capable of migrating itself
|
||||
(define (migrate-server-db [db (current-db)])
|
||||
;; these are the steps taken by the north cli tool (it's a bit verbose but at least it's all
|
||||
;; programmatically accessible...)
|
||||
;; i also use a runtime path to be a bit more robust
|
||||
(define base (path->migration migrations-dir))
|
||||
(define adapter (sqlite-adapter db))
|
||||
(adapter-init adapter)
|
||||
|
@ -50,6 +53,8 @@
|
|||
(adapter-apply! adapter (migration-revision migration) (migration-up migration)))
|
||||
(void))
|
||||
|
||||
(migrate-server-db (open-server-db 'create))
|
||||
|
||||
(define (with-server-db proc)
|
||||
(parameterize ([current-db (open-server-db)])
|
||||
(proc)
|
||||
|
|
Loading…
Reference in New Issue