04/08: Fix compute-token

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 911d0779eddf6720fd3c8792ed11fae60ff596ca
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Jun 28 21:42:05 2020 +0100

    Fix compute-token
    
    For some reason the string-filter arguments were the wrong way around.
---
 guix-data-service/model/build-server-token-seed.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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