fix remove bot

Author: bondiano

src/ligretto_bot_clj/core.clj

@@ -42,6 +42,7 @@
   (tap> "test")
 
   (tap> @system))
+
 (defn shutdown-hook []
   (.addShutdownHook (Runtime/getRuntime)
                     (Thread. ^Runnable

src/ligretto_bot_clj/web/app.clj

@@ -11,12 +11,12 @@
   [db]
   (log/info "Clearing DB")
   (doseq [[game-id game] @db]
-    (if (empty? game)
-      (swap! db dissoc game-id)
-      (doseq [bot (vals game)]
-        (when (= @(:status bot) :shutdown)
-          (log/info "Removing bot" (:bot-id bot) "from game" game-id)
-          (swap! db dissoc game-id (keyword (:bot-id bot))))))))
+    (doseq [bot (vals game)]
+      (when (= @(:status bot) :shutdown)
+        (log/info "Removing bot" (:bot-id bot) "from game" game-id)
+        (swap! db dissoc game-id (keyword (:bot-id bot)))))
+    (when (empty? game)
+      (swap! db dissoc game-id))))
 
 (defn run-clear-db-worker
   "Runs worker to clear stopped bots from DB

src/ligretto_bot_clj/web/services/bot.clj

@@ -90,7 +90,7 @@
          bot (get-in @db [game-id* bot-id*])]
      (when (not (nil? bot))
        (stop-bot bot)
-       (swap! db update-in [game-id] dissoc bot-id*)
+       (swap! db update-in [game-id*] dissoc bot-id*)
        (->bot bot)))))
 
 (defn remove-game