Answer handling yay

server/src/web/components/card.gleam

@@ -29,7 +29,7 @@ type State {
 pub opaque type Model {
   Model(
     state: State,
-    players: List(#(String, String)),
+    players: List(#(String, #(String, List(#(String, String))))),
     lobby: #(String, List(User)),
     registry: GroupRegistry(NotifyClient),
     handler: Started(Subject(NotifyServer)),
@@ -137,7 +137,14 @@ fn view(model: Model) -> Element(Msg) {
         AskName ->
           case model.players {
             [] -> input_new_player(ReceiveName)
-            _ -> view_players(model.players, AcceptName)
+            _ ->
+              view_players(
+                list.map(model.players, fn(player) {
+                  let #(id, #(name, _)) = player
+                  #(id, name)
+                }),
+                AcceptName,
+              )
           }
         NameOk(name) -> {
           shared.confirm_cells(