   [ctx {:keys [tasks] :as options}]
   (vt/schedule! ctx (assoc options
                            ::vt/fn #'event-loop-handler
-                           ::vt/delay 3000
+                           ::vt/delay 5000
                            ::vt/repeat true)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

          (p/then decode-task-row)
          (p/then (fn [item]
                    (when item
                      (log/debug "Execute task " (:name item))
                      (-> (p/do! (handle-task tasks item))
                          (p/handle (fn [v e]
                                      (if e


(defn- reschedule
  [conn task error]
  (let [explain (ex-message error)
        sqlv [sql:mark-as-retry explain (:id task)]]
    (-> (db/query-one conn sqlv)
        (p/then' (constantly nil)))))
