From 911d0779eddf6720fd3c8792ed11fae60ff596ca Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 28 Jun 2020 21:42:05 +0100
Subject: [PATCH] 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