diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-06 17:43:52 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-06 17:43:52 +0100 |
| commit | 92dbc8cba30b5e0f300fb4f98d465b3a0eec16db (patch) | |
| tree | a88c90b7559eb6cf73f0bdc81122e7fb33632033 | |
| parent | 3412494ab85c467ba9da6e7c1c695669947bbb61 (diff) | |
Introduce utils module.
Need a much better name than that.
| -rw-r--r-- | models/utils.rkt | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/models/utils.rkt b/models/utils.rkt new file mode 100644 index 0000000..1c20cb1 --- /dev/null +++ b/models/utils.rkt @@ -0,0 +1,11 @@ +#lang racket/base + +(provide db-id? + insert-id) + +(require db) + +(define db-id? exact-nonnegative-integer?) + +(define (insert-id query) + (cdr (assoc 'insert-id (simple-result-info query)))) |