From c0f93e8d41188fc4138a350430ee349b61ea0535 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Mon, 17 Nov 2025 17:47:17 +0100
Subject: raco fmt.

---
 models/user.rkt | 24 +++++++++---------------
 1 file changed, 9 insertions(+), 15 deletions(-)

(limited to 'models/user.rkt')

diff --git a/models/user.rkt b/models/user.rkt
index a56b469..45ca154 100644
--- a/models/user.rkt
+++ b/models/user.rkt
@@ -1,16 +1,13 @@
 #lang racket
 
-(provide
- ;; Model struct
- user
- user?
- user-id
- user-name
- user-role
- (contract-out
-  ;; SQL CRUD
-  [get-current-user (-> (or/c user? #f))]
-  #; [delete-user! (-> user? void?)]))
+;; Model struct
+(provide user
+         user?
+         user-id
+         user-name
+         user-role
+         ;; SQL CRUD
+         (contract-out [get-current-user (-> (or/c user? #f))] #;[delete-user! (-> user? void?)]))
 
 (require racket/contract
          db
@@ -21,10 +18,7 @@
 
 (define (get-current-user)
   (define current-user-id "foobar")
-  (define query (select id name role_id
-                        #:from users
-                        #:where (= id ,current-user-id)
-                        #:limit 1))
+  (define query (select id name role_id #:from users #:where (= id ,current-user-id) #:limit 1))
   (define row (query-maybe-row (current-conn) query))
   (cond
     [(false? row) #f]
-- 
cgit v1.2.3