cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix compute-token

Browse source 
For some reason the string-filter arguments were the wrong way around.
This commit is contained in:
Christopher Baines 2020-06-28 21:42:05 +01:00
parent ddbe4c2192
commit 911d0779ed
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/model/build-server-token-seed.scm
View file

@ -30,12 +30,12 @@
build-server-id build-server-id
token-seed))) token-seed)))
(string-filter (string-filter
;; Remove the + / and = to make handling the value easier
char-set:letter+digit
(base64-encode (base64-encode
(bytevector-hash (bytevector-hash
(string->utf8 source-string) (string->utf8 source-string)
(hash-algorithm sha1))) (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 (compute-tokens-for-build-server conn secret-key-base build-server-id)
(define query (define query