diff --git a/src/milquetoast/core.clj b/src/milquetoast/core.clj index 7eb3478..ed0bba5 100644 --- a/src/milquetoast/core.clj +++ b/src/milquetoast/core.clj @@ -124,9 +124,11 @@ (defn create-client [broker-uri username password & {:keys [verbose] :or {verbose false}}] - ...) + (let [client (MqttClient. broker-uri username password (MemoryPersistence.))] + (->MilquetoastClient client (atom []) verbose))) (defn create-json-client [broker-uri username password & {:keys [verbose] :or {verbose false}}] - ...) + (let [client (create-client broker-uri username password :verbose verbose)] + (->MilquetoastJsonClient client)))