From a864ae90feee222bbf1d2abeae2e62703c61b9f7 Mon Sep 17 00:00:00 2001
From: Enrico Mischorr <enrico@mischorr.de>
Date: Wed, 22 Feb 2023 16:14:16 +0100
Subject: [PATCH] add {:verify, :verify_peer} if verify function is used

---
 lib/socket/ssl.ex | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/socket/ssl.ex b/lib/socket/ssl.ex
index bf39f2f..73d6e20 100644
--- a/lib/socket/ssl.ex
+++ b/lib/socket/ssl.ex
@@ -410,10 +410,10 @@ defmodule Socket.SSL do
         [{ :verify, :verify_none }]
 
       { :verify, [function: fun] } ->
-        [{ :verify_fun, { fun, nil } }]
+        [{ :verify, :verify_peer }, { :verify_fun, { fun, nil } }]
 
       { :verify, [function: fun, data: data] } ->
-        [{ :verify_fun, { fun, data } }]
+        [{ :verify, :verify_peer }, { :verify_fun, { fun, data } }]
 
       { :identity, identity } ->
         Enum.flat_map(identity, fn