diff options
Diffstat (limited to 'models/user.rkt')
| -rw-r--r-- | models/user.rkt | 24 |
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] |