architecture

luke 2018-09-20T09:57:13.000100Z

(ns com.game)

(defn do-action [game-id action params]
   (let [game (from-atom game-id)
           round (curr-round game)
           handler (partial debit-points game-id)
           new-round (do-action round action params handler)]
      (-> (from-atom game-id)
            (set-curr-round round)))

luke 2018-09-20T10:01:50.000100Z

Hello