diff options
| author | Logan Hunt <loganjh@amazon.com> | 2022-05-24 09:57:15 -0700 |
|---|---|---|
| committer | Logan Hunt <loganjh@amazon.com> | 2022-05-24 09:57:15 -0700 |
| commit | 3db9a2eb7a7d14ce935f5902b0c21ce4fd5eb729 (patch) | |
| tree | f618b9a6342b8d30c39454e9cf7b3cabefc04db4 /database/run.lisp | |
| download | lispruns-3db9a2eb7a7d14ce935f5902b0c21ce4fd5eb729.tar.gz lispruns-3db9a2eb7a7d14ce935f5902b0c21ce4fd5eb729.zip | |
None of the original commit messages would actually help anyone
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)))) |