diff options
Diffstat (limited to 'src/com/github')
| -rw-r--r-- | src/com/github/ivarref/yoltq.clj | 5 | ||||
| -rw-r--r-- | src/com/github/ivarref/yoltq/migrate.clj | 3 |
2 files changed, 8 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)] diff --git a/src/com/github/ivarref/yoltq/migrate.clj b/src/com/github/ivarref/yoltq/migrate.clj index 6313b73..c97f679 100644 --- a/src/com/github/ivarref/yoltq/migrate.clj +++ b/src/com/github/ivarref/yoltq/migrate.clj @@ -56,3 +56,6 @@ (defn migrate! [cfg] (to->v2 cfg)) + +(comment + (migrate! @com.github.ivarref.yoltq/*config*)) |