From f404bb4420d7c202685abe856b93f24eaa6de0c1 Mon Sep 17 00:00:00 2001 From: anatoly Date: Mon, 30 Nov 2015 22:05:44 -0500 Subject: [PATCH] [logging]: status vs. started? suspendes?.. --- test/app/utils/logging.clj | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/test/app/utils/logging.clj b/test/app/utils/logging.clj index 7a1307d..dc0216c 100644 --- a/test/app/utils/logging.clj +++ b/test/app/utils/logging.clj @@ -17,13 +17,13 @@ "mount.core$sigcont" :resume :noop))) -(defn whatcha-doing? [{:keys [started? suspended? suspend]} action] +(defn whatcha-doing? [{:keys [status suspend]} action] (case action - :up (if suspended? ">> resuming" - (if-not started? ">> starting")) - :down (if (or started? suspended?) "<< stopping") - :suspend (if (and started? suspend) "<< suspending") - :resume (if suspended? ">> resuming"))) + :up (if (status :suspended) ">> resuming" + (if-not (status :started) ">> starting")) + :down (if (or (status :started) (status :suspended)) "<< stopping") + :suspend (if (and (status :started) suspend) "<< suspending") + :resume (if (status :suspended) ">> resuming"))) (defn log-status [f & args] (let [{:keys [ns name] :as state} (second args)