 (defn stop
   []
   (if (contains? invalid-stop-transitions state)
-    (log/error "System already stopped.")
+    (log/warn "System already stopped.")
     (do
       (alter-var-root #'system
         (fn [s] (when s (component/stop s))))

    (when (nil? system)
      (init mode))
    (if (contains? invalid-start-transitions state)
      (log/error "System has already been started.")
      (do
        (alter-var-root #'system component/start)
        (alter-var-root #'state (fn [_] :started))))

(defn run
  []
  (if (contains? invalid-run-transitions state)
    (log/warn "System is already running.")
    (do
      (if (not (contains? invalid-init-transitions state))
        (init))
