diff --git a/guix-data-service/model/build-server-token-seed.scm b/guix-data-service/model/build-server-token-seed.scm index f4a1bf4..c26f796 100644 --- a/guix-data-service/model/build-server-token-seed.scm +++ b/guix-data-service/model/build-server-token-seed.scm @@ -30,12 +30,12 @@ build-server-id token-seed))) (string-filter + ;; Remove the + / and = to make handling the value easier + char-set:letter+digit (base64-encode (bytevector-hash (string->utf8 source-string) - (hash-algorithm sha1))) - ;; Remove the + / and = to make handling the value easier - char-set:letter+digit))) + (hash-algorithm sha1)))))) (define (compute-tokens-for-build-server conn secret-key-base build-server-id) (define query