     (init :default))
   ([mode]
     (if (contains? invalid-init-transitions state)
-      (log/error "System has aready been initialized.")
+      (log/warn "System has aready been initialized.")
       (do
         (alter-var-root #'system
           (constantly ((components/init mode))))

    (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))
