From 6b53dd1526cef48ff4ecb22d988bcdc8287f2875 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Tue, 25 Feb 2025 23:07:20 +0000
Subject: [PATCH] Match results on ok in session_server

---
 server/src/session_server.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/server/src/session_server.erl b/server/src/session_server.erl
index bdfa82b..4883d2a 100644
--- a/server/src/session_server.erl
+++ b/server/src/session_server.erl
@@ -12,7 +12,7 @@ start_link(Socket) ->
 	gen_server:start_link(?MODULE, Socket, []).
 
 init(Socket) ->
-	ssl:setopts(Socket, [{active, true}]),
+	ok = ssl:setopts(Socket, [{active, true}]),
 	{ok, #{socket => Socket}}.
 
 handle_call(_Request, _From, State) ->
@@ -26,7 +26,7 @@ handle_info({ssl, Socket, Data}, State) ->
 		{ok, {foo, _}} ->
 			{ok, Encoded}
 				= 'StudySystemProtocol':encode('Response', {msg, "Foo"}),
-			ssl:send(Socket, Encoded);
+			ok = ssl:send(Socket, Encoded);
 		Result ->
 			io:format("Invalid message: ~p~n", [Result]),
 			ok