瀏覽代碼

[nalunch] Fix

Innokentiy Enikeev 6 年之前
父節點
當前提交
0886ff412a
共有 1 個文件被更改,包括 1 次插入3 次删除
  1. 1 3
      plugins/nalunch.lisp

+ 1 - 3
plugins/nalunch.lisp

@@ -119,9 +119,7 @@
                      #'(lambda (diff)
                      #'(lambda (diff)
                          (bot-send-message (format-balance-left (user-balance)))
                          (bot-send-message (format-balance-left (user-balance)))
                          (process-new diff))
                          (process-new diff))
-                     :key #'(lambda (tr)
-                              (local-time:timestamp-to-universal
-                               (local-time:parse-timestring (agets tr "time"))))))
+                     :key #'pta-ledger:entry-date))
 
 
 ;; Hooks
 ;; Hooks
 (defun handle-set-cron (enable)
 (defun handle-set-cron (enable)