Don't convert user ID to/from numbers

server/groups.rkt

@@ -35,7 +35,7 @@
 (define (add-user dbc id name)
   (redis-hash-set! dbc
                    "users"
-                   (number->string id)
+                   id
                    (jsexpr->bytes (hash 'user_name name))))
 
 ; A group is a product of two sets of users, admins and members. A
@@ -59,13 +59,13 @@
   (deserialize-group id
                      (redis-hash-ref dbc
                                      "groups"
-                                     (number->string id))))
+                                     id)))
 
 ;; NB: like add-user, for testing in the REPL
 (define (add-group dbc id admins members)
   (redis-hash-set! dbc
                    "groups"
-                   (number->string id)
+                   id
                    (jsexpr->bytes
                     (hash 'admins (set->list admins)
                           'members (set->list members)))))

server/rest.rkt

@@ -36,9 +36,7 @@
        (let* ((res (get-resource res-id))
               (mask (get-mask-for-user
                      res
-                     (~> user-id
-                         (bytes->string/utf-8)
-                         (string->number)))))
+                     (bytes->string/utf-8 user-id))))
          (~> (apply-mask (dict-ref resource-types
                                    (resource-type res))
                          mask)
@@ -79,9 +77,7 @@
                           (string->symbol)))
               (action (bytes->string/utf-8 action)))
          (let ((action (access-action res
-                                      (~> user-id
-                                          (bytes->string/utf-8)
-                                          (string->number))
+                                      (bytes->string/utf-8 user-id)
                                       (cons branch action))))
            (if action
                (run-action action