|
|
@@ -382,10 +382,10 @@
|
|
|
(def-message-cmd-handler handler-cmd-save (:save :saver)
|
|
|
(if (null *args*)
|
|
|
(saver/send-info)
|
|
|
- (case (keyify (car *args*))
|
|
|
+ (case (keyify (first *args*))
|
|
|
(:add (saver/add-payment (rest *args*)))
|
|
|
(:del (saver/del-payment (rest *args*)))
|
|
|
(:rename (saver/set-payment-name (rest *args*)))
|
|
|
- (:amount (saver/set-payment-amount (rest args)))
|
|
|
- (:cron (saver/set-payment-schedule (rest args)))
|
|
|
+ (:amount (saver/set-payment-amount (rest *args*)))
|
|
|
+ (:cron (saver/set-payment-schedule (rest *args*)))
|
|
|
(t (bot-send-message "Надо /saver [add|del|rename|amount|cron] ...")))))
|
