Required params were obsolete
This commit is contained in:
parent
38ea8bce70
commit
4acabb4e61
|
@ -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)))
|
||||||
|
|
Loading…
Reference in New Issue