diff options
Diffstat (limited to 'database/run.lisp')
| -rw-r--r-- | database/run.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/database/run.lisp b/database/run.lisp new file mode 100644 index 0000000..30b8342 --- /dev/null +++ b/database/run.lisp @@ -0,0 +1,17 @@ +(mito:deftable run () + ((category :col-type category)) + (:record-timestamps nil) + (:conc-name run-)) + +(mito:deftable run-split () + ((run :col-type run) + (category-split :col-type category-split) + (start-time :col-type (or :datetime :null)) + (end-time :col-type (or :datetime :null))) + (:record-timestamps nil) + (:conc-name run-split-)) + +(defun run-splits (run) + (mito:select-dao 'run-split + (sxql:order-by :category_split_id) + (sxql:where (:= :run run)))) |