cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

storage: minor code simplification; re-add schema setting to postgres test config

Browse source
This commit is contained in:
Helmut Merz 2024-07-26 16:43:14 +02:00
parent c0c6b10e94
commit 94c515a191
2 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
storage/tracking.lisp
View file

@ -80,17 +80,14 @@
tr)) tr))
(defun create-table (cont) (defun create-table (cont)
(let* (let* ((st (storage cont))
((st (storage cont)) (tn (table-name cont))
(tn (table-name cont)) (table (storage:qualified-table-name st tn))
(table (storage:qualified-table-name st tn)) (params (storage:params st))
(head-fields (item-head-fields cont)) (id-type (getf params :id-type))
(params (storage:params st)) (json-type (getf params :json-type))
(id-type (getf params :id-type)) (hf-def (mapcar #'(lambda (x) (list x :type 'text :not-null t :default '|''|))
(json-type (getf params :json-type)) (item-head-fields cont))))
(hf-def (mapcar #'(lambda (x)
(list x :type 'text :not-null t :default '|''|))
head-fields)))
(storage:do-sql st (storage:do-sql st
(sxql:make-statement :create-table table (sxql:make-statement :create-table table
(nconc (nconc

3
test/config-postgres.lisp
View file

@ -19,4 +19,5 @@
(config:add :storage :class 'storage:config :setup #'storage:setup (config:add :storage :class 'storage:config :setup #'storage:setup
:db-type :postgres :db-type :postgres
:connect-args postgres-connect-args) :connect-args postgres-connect-args
:options '(:schema "testing"))