minor: Allow passing fn to :operations dev component

kepler16 · Feb 24, 2024 · 71262ff · 71262ff
1 parent 54b0db8
commit 71262ff
Showing 1 changed file with 7 additions and 8 deletions.
diff --git a/packages/mallard/src/k16/mallard/dev.clj b/packages/mallard/src/k16/mallard/dev.clj
@@ -4,7 +4,6 @@
   (:require
    [k16.mallard.api :as api]
    [k16.mallard.datastore :as datastore.api]
-   [k16.mallard.loaders.fs :as loaders.fs]
    [k16.mallard.executor :as executor]))
 
 (set! *warn-on-reflection* true)
@@ -17,17 +16,17 @@
 
    [:or
     [:map
-     [:operations executor/?Operations]]
-
-    [:map
-     [:load-dir :string]]]])
+     [:operations
+      [:or executor/?Operations
+       [:=> [:cat] executor/?Operations]]]]]])
 
 (def run!
   {:gx/start
    {:gx/processor (fn [{:keys [props]}]
-                    (let [{:keys [store context operations load-dir]} props]
+                    (let [{:keys [store context operations]} props]
                       (api/run-up! {:store store
                                     :context context
-                                    :operations (or operations
-                                                    (loaders.fs/load! load-dir))})))
+                                    :operations (if (fn? operations)
+                                                  (operations)
+                                                  operations)})))
     :gx/props-schema ?Props}})