From fd3b4c9747bc631a900a881bfdaadc65124cf0d1 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Sat, 2 Oct 2021 12:03:00 +0200
Subject: accounts: Expect a reason for an authorization prompt

---
 tests/client-workflow.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/client-workflow.scm')

diff --git a/tests/client-workflow.scm b/tests/client-workflow.scm
index 9c74198..ed1c1b4 100644
--- a/tests/client-workflow.scm
+++ b/tests/client-workflow.scm
@@ -79,7 +79,7 @@
                      (cute sim:request simulation <...>)))
        (parameterize ((p:current-date 0)
                       (client:authorization-process
-                       (lambda* (uri #:key issuer)
+                       (lambda* (uri #:key reason)
                          (sim:grant-authorization simulation uri))))
          (receive (new-account response response-body)
              (begin
-- 
cgit v1.2.3