Required params were obsolete

This commit is contained in:
niten 2023-05-18 11:49:06 -07:00
parent 38ea8bce70
commit 4acabb4e61
1 changed files with 10 additions and 1 deletions

View File

@ -50,7 +50,16 @@
(update result :errors concat missing-errors))) (update result :errors concat missing-errors)))
(defn -main [& args] (defn -main [& args]
(let [required-args #{:mqtt-host :mqtt-port :mqtt-user :mqtt-password-file :event-topic :notification-topic} (let [required-args #{:incoming-mqtt-host
:incoming-mqtt-port
:incoming-mqtt-user
:incoming-mqtt-password-file
:outgoing-mqtt-host
:outgoing-mqtt-port
:outgoing-mqtt-user
:outgoing-mqtt-password-file
:event-topic
:notification-topic}
{:keys [options _ errors summary]} (parse-opts args required-args cli-opts)] {:keys [options _ errors summary]} (parse-opts args required-args cli-opts)]
(when (:help options) (msg-quit 0 (usage summary))) (when (:help options) (msg-quit 0 (usage summary)))
(when (seq errors) (msg-quit 1 (usage summary errors))) (when (seq errors) (msg-quit 1 (usage summary errors)))