clojure - 添加 clj-time.core 时，汇总功能在 riemman 中不起作用

Question

我正在使用 riemann 触发电子邮件警报，该警报应仅在每天凌晨 3 点至晚上 8 点触发。当我添加了 clj-time.core 函数时，汇总函数不起作用。

不知道我哪里出错了。任何帮助表示赞赏。

(tcp-server {:host "127.0.0.1" :port 5555})

(let [userindex1 (default :ttl 300 (update-index (index)))])  
  (let [email (mailer {....email configuration})]
            (streams
        (where (service "log")
            (smap
              (fn [events]
               (let [count-of-transaction (count (filter #(= "error" (:type %)) events))]
                  (event
                  {
                     :status "Failure"
                     :metric  count-of-failures 
                     :total-fail (< count-of-failures 2)})))

              (where (let [now (clj-time.core/now)]
                    (and (<= 3 (clj-time.core/hour now) 20)
                         (= (:status event) "Failure")
                         (:total-fail event)))
                (rollup 1 200
                (email "xxx@xx.com")
                 ))prn))))

提前致谢