aboutsummaryrefslogtreecommitdiff
path: root/src/com/github/ivarref/yoltq.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/com/github/ivarref/yoltq.clj')
-rw-r--r--src/com/github/ivarref/yoltq.clj5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/com/github/ivarref/yoltq.clj b/src/com/github/ivarref/yoltq.clj
index 7d5434e..bb7a43e 100644
--- a/src/com/github/ivarref/yoltq.clj
+++ b/src/com/github/ivarref/yoltq.clj
@@ -160,6 +160,11 @@
:healthy?
(deref)))
+(defn unhealthy?
+ "Returns `true` if there are queues in error, otherwise `false`."
+ []
+ (false? (healthy?)))
+
(defn queue-stats []
(let [{:keys [conn]} @*config*
db (d/db conn)]