[gnunet-scheme] 02/03: examples/web: Actually conncet to the CADET server.

[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 a53652f005460f34cce0d5347d140f8951deb7e7
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Jul 28 14:21:42 2022 +0200

    examples/web: Actually conncet to the CADET server.
    
    It used to connect to the DHT server instead.
    
    * examples/web.scm (start)[cadet-server]: Replace dht:connect with
    cadet:connect, and import (gnu gnunet cadet client).
---
 examples/web.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/examples/web.scm b/examples/web.scm
index 3f2a995..5c7319b 100644
--- a/examples/web.scm
+++ b/examples/web.scm
@@ -34,6 +34,8 @@
              #:prefix #{nse:}#)
             ((gnu gnunet dht client)
              #:prefix #{dht:}#)
+            ((gnu gnunet cadet client)
+             #:prefix #{cadet:}#)
             (web response)
             (web server)
             (web uri)
@@ -261,7 +263,7 @@ not start new chats or view conversation.")
 (define (start config)
   (define nse-server (nse:connect config))
   (define dht-server (dht:connect config))
-  (define cadet-server (dht:connect config))
+  (define cadet-server (cadet:connect config))
   (define impl (lookup-server-impl 'fiberized))
   (define server (open-server impl `(#:port 8089)))
   (define (url-handler* request body)

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