forked from LibreGaming/matchbot
11 lines
289 B
Clojure
11 lines
289 B
Clojure
;; SPDX-License-Identifier: Apache-2.0
|
|
;; SPDX-FileCopyrightText: 2021 Sebastian Crane <seabass-labrax@gmx.com>
|
|
|
|
(ns game)
|
|
|
|
(defn players-of-game [state game]
|
|
(get-in state [:games game]))
|
|
|
|
(defn add-player-of-game [state game player]
|
|
(update-in state [:games game] #(conj % player)))
|