raco fmt.

1 files changed, 9 insertions, 15 deletions

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]