🐛 Fix incorrect topic sending on internal srepl notify helper

backend/src/app/srepl/main.clj

@@ -210,7 +210,7 @@
   The message can be a free text or a preconfigured one.
 
   The destination can be: all, profile-id, team-id, or a coll of them."
-  [{:keys [::mbus/msgbus ::db/pool]} & {:keys [dest code message level]
+  [& {:keys [dest code message level]
       :or {code :generic level :info}
       :as params}]
 
@@ -219,7 +219,10 @@
               :code :incorrect-level
               :hint (str "level '" level "' not supported")))
 
-  (letfn [(send [dest]
+  (let [{:keys [::mbus/msgbus ::db/pool]} main/system
+
+        send
+        (fn [dest]
           (l/inf :hint "sending notification" :dest (str dest))
           (let [message {:type :notification
                          :code code
@@ -230,19 +233,22 @@
                 message (->> (dissoc params :dest :code :message :level)
                                  (merge message))]
             (mbus/pub! msgbus
-                         :topic (str dest)
+                       :topic dest
                        :message message)))
 
-          (resolve-profile [email]
+        resolve-profile
+        (fn [email]
           (some-> (db/get* pool :profile {:email (str/lower email)} {:columns [:id]}) :id vector))
 
-          (resolve-team [team-id]
+        resolve-team
+        (fn [team-id]
           (->> (db/query pool :team-profile-rel
                          {:team-id team-id}
                          {:columns [:profile-id]})
                (map :profile-id)))
 
-          (resolve-dest [dest]
+        resolve-dest
+        (fn resolve-dest [dest]
           (cond
             (= :all dest)
             [uuid/zero]
@@ -254,7 +260,7 @@
             (some-> dest h/parse-uuid resolve-dest)
 
             (nil? dest)
-              (resolve-dest uuid/zero)
+            [uuid/zero]
 
             (map? dest)
             (sequence (comp