Apple-2-SW
/
robotwar
mirror of https://github.com/richardharrington/robotwar.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

tmp not exactly working, but closer!

This commit is contained in:
Richard Harrington 2022-08-01 10:40:11 -04:00
parent 3768178133
commit 5885ecc7b2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/robotwar/handler.clj
View File

@ -20,7 +20,7 @@
"takes a string parameter from the browser and returns a sequence "takes a string parameter from the browser and returns a sequence
of program keys" of program keys"
[programs-str] [programs-str]
(map keyword (split programs-str #"[,\s]\s*"))) (map keyword (split programs-str #"[,\s]+")))
(defn get-programs (defn get-programs
"gets a sequence of five programs from the source-code repository." "gets a sequence of five programs from the source-code repository."
@ -68,7 +68,7 @@
(response (response
{:names (map name (keys source-programs/programs))})) {:names (map name (keys source-programs/programs))}))
(GET "/init" [& programs] (GET "/init" {{programs "programs"} :params}
(println "in init") (println "in init")
(println (str programs)) (println (str programs))
(swap! games-store add-game programs) (swap! games-store add-game programs)