diff options
Diffstat (limited to 'guix-data-service/model/build-server-token-seed.scm')
| -rw-r--r-- | guix-data-service/model/build-server-token-seed.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-data-service/model/build-server-token-seed.scm b/guix-data-service/model/build-server-token-seed.scm index 4a0c48d..454425b 100644 --- a/guix-data-service/model/build-server-token-seed.scm +++ b/guix-data-service/model/build-server-token-seed.scm @@ -12,10 +12,13 @@ secret-key-base build-server-id token-seed))) - (base64-encode - (bytevector-hash - (string->utf8 source-string) - (hash-algorithm sha1))))) + (string-filter + (base64-encode + (bytevector-hash + (string->utf8 source-string) + (hash-algorithm sha1))) + ;; Remove the + / and = to make handling the value easier + char-set:letter+digit))) (define (compute-tokens-for-build-server conn secret-key-base build-server-id) (define query |