added code to handler to return names of available programs, for display in browser

This commit is contained in:
Richard Harrington 2013-08-24 08:51:27 -04:00
parent ca5b98f241
commit 19260d6b67

View File

@ -49,6 +49,8 @@
:games {}}))
(defroutes app-routes
(GET "/program-names" [] (response/response
{:names (map name (keys source-programs/programs))}))
(GET "/init" [programs] (let [next-id (:next-id @games-store)]
(swap! games-store add-game programs)
(response/response {:id next-id})))