[gnunet-scheme] 02/03: cadet/client: Stub handling of msg:cadet:local:acknowledgement.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 9310140a517d5412ba0680a865119b26a7a81663
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Jul 31 20:58:46 2022 +0200

    cadet/client: Stub handling of msg:cadet:local:acknowledgement.
    
    * gnu/gnunet/cadet/client.scm
    (reconnect)[handlers]{msg:cadet:local:acknowledgement}: New (stubbed) 
handler.
---
 gnu/gnunet/cadet/client.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
index a6fa8e5..e677983 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -53,7 +53,8 @@
          (only (gnu gnunet concurrency lost-and-found)
                make-lost-and-found collect-lost-and-found-operation
                losable-lost-and-found)
-         (only (gnu gnunet mq handler) message-handlers)
+         (only (gnu gnunet mq handler)
+               message-handlers message-handler)
          (only (gnu gnunet mq) close-queue! send-message!)
          (only (gnu gnunet server)
                maybe-send-control-message! make-error-handler
@@ -150,7 +151,13 @@
         (get-operation control-channel)
         (wrap-operation (collect-lost-and-found-operation lost-and-found)
                         (lambda (lost) (cons 'lost lost)))))
-      (define handlers (message-handlers)) ; TODO
+      (define handlers
+       (message-handlers
+        (message-handler
+         (type (symbol-value message-type msg:cadet:local:acknowledgement))
+         ((interpose exp) exp)
+         ((well-formed? slice) TODO)
+         ((handle! slice) TODO))))
       (define error-handler
        (make-error-handler connected disconnected terminal-condition
                            control-channel))

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.