diff options
| -rw-r--r-- | database/category.lisp | 2 | ||||
| -rw-r--r-- | database/run.lisp | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/database/category.lisp b/database/category.lisp index 70fb49b..0e902ae 100644 --- a/database/category.lisp +++ b/database/category.lisp @@ -6,7 +6,7 @@ (mito:deftable category-split () ((name :col-type (:varchar 128)) - (category :col-type category)) + (category :col-type category :accessor category-split-category)) (:record-timestamps nil) (:conc-name category-split-)) diff --git a/database/run.lisp b/database/run.lisp index 5b7d24b..a2d7cf1 100644 --- a/database/run.lisp +++ b/database/run.lisp @@ -1,11 +1,11 @@ (mito:deftable run () - ((category :col-type category)) + ((category :col-type category :accessor run-category)) (:record-timestamps nil) (:conc-name run-)) (mito:deftable run-split () - ((run :col-type run) - (category-split :col-type category-split) + ((run :col-type run :accessor run-split-run) + (category-split :col-type category-split :accessor run-split-category-split) (start-timestamp :col-type (or :bigint :null)) (end-timestamp :col-type (or :bigint :null))) (:record-timestamps nil) |