[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 02/03: examples/web: Actually conncet to the CADET serve
From: |
gnunet |
Subject: |
[gnunet-scheme] 02/03: examples/web: Actually conncet to the CADET server. |
Date: |
Thu, 28 Jul 2022 16:02:03 +0200 |
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.