From f61604a8946ea0f6f003f43c3628bd84381d057f Mon Sep 17 00:00:00 2001
From: Trygve Laugstøl <trygvis@inamo.no>
Date: Thu, 7 Mar 2024 22:26:16 +0100
Subject: wip

---
 tictactoe-2/apps/ttt_server/src/ttt_server.erl | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

(limited to 'tictactoe-2/apps/ttt_server/src/ttt_server.erl')

diff --git a/tictactoe-2/apps/ttt_server/src/ttt_server.erl b/tictactoe-2/apps/ttt_server/src/ttt_server.erl
index 52a7957..ce59968 100644
--- a/tictactoe-2/apps/ttt_server/src/ttt_server.erl
+++ b/tictactoe-2/apps/ttt_server/src/ttt_server.erl
@@ -36,21 +36,15 @@ loop(State) ->
       loop(#ttt_state{
         seq = Id + 1,
         games = orddict:append(Id, Game, State#ttt_state.games)});
-    {Player, show, Id} ->
+    {Player, Cmd, Id} when (Cmd == show) or
+      (Cmd == join) or
+      (Cmd == status) or
+      (Cmd == stop) ->
       case orddict:find(Id, State#ttt_state.games) of
         error ->
           Player ! no_such_game;
         {ok, [Game]} ->
-          io:format("show: ~p~n", [Game]),
-          Game#ttt_game.pid ! {Player, show}
-      end,
-      loop(State);
-    {Player, join, Id} ->
-      case orddict:find(Id, State#ttt_state.games) of
-        error ->
-          Player ! no_such_game;
-        {ok, [Game]} ->
-          Game#ttt_game.pid ! {Player, join}
+          Game#ttt_game.pid ! {Player, Cmd}
       end,
       loop(State);
     dump ->
-- 
cgit v1.2.3