From: Javier Sagredo <javier.sagredo@iohk.io>
Date: Tue, 16 Jun 2026 22:43:10 +0000 (+0200)
Subject: Updated tls_server_negotiate
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=2b7cb807c2e977bf2d3cc3ce797f612c5b618319;p=sula.git

Updated tls_server_negotiate
---

diff --git a/.gitignore b/.gitignore
index 9a7264b..f25bea8 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,4 +3,5 @@ key.pem
 site
 *.bak
 clients_db.pl
-site.pl
\ No newline at end of file
+site.pl
+scryer-prolog
\ No newline at end of file
diff --git a/cert.pl b/cert.pl
index c5bf3ee..1963a85 100644
--- a/cert.pl
+++ b/cert.pl
@@ -69,7 +69,7 @@ create_new_certificate(Context) :-
 with_tls_connection(S0, Context, Kont) :-
     setup_call_cleanup(
         ( log_msg("tls-conn", "Handshaking TLS~n", []),
-          tls_server_negotiate(Context, S0, S, ClientCert),
+          tls_server_negotiate(Context, S0, S, [client_certificate(ClientCert)]),
           log_msg("tls-conn", "Client cert ~q~n", [ClientCert])
         ),
         call(Kont, S, ClientCert),