From 92dbc8cba30b5e0f300fb4f98d465b3a0eec16db Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sat, 6 Dec 2025 17:43:52 +0100
Subject: Introduce utils module.

Need a much better name than that.
---
 models/utils.rkt | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 models/utils.rkt

(limited to 'models')

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))))
-- 
cgit v1.2.3