Procházet zdrojové kódy

fix compile warnings

rcmerci před 4 dny
rodič
revize
eb404894d9

+ 1 - 1
src/main/frontend/worker/db_worker_node.cljs

@@ -88,7 +88,7 @@
                      (swap! *sse-clients disj res))))
                      (swap! *sse-clients disj res))))
 
 
 (defn- <invoke!
 (defn- <invoke!
-  [proxy method direct-pass? args]
+  [^js proxy method direct-pass? args]
   (let [args' (if direct-pass?
   (let [args' (if direct-pass?
                 (into-array (or args []))
                 (into-array (or args []))
                 (if (string? args)
                 (if (string? args)

+ 2 - 2
src/main/frontend/worker/platform/node.cljs

@@ -127,7 +127,7 @@
   [data-dir _sqlite pool-name]
   [data-dir _sqlite pool-name]
   (p/let [repo-dir-path (repo-dir data-dir pool-name)
   (p/let [repo-dir-path (repo-dir data-dir pool-name)
           _ (ensure-dir! repo-dir-path)
           _ (ensure-dir! repo-dir-path)
-          pool (js-obj)]
+          ^js pool (js-obj)]
     (set! (.-repoDir pool) repo-dir-path)
     (set! (.-repoDir pool) repo-dir-path)
     (set! (.-getCapacity pool) (fn [] 1))
     (set! (.-getCapacity pool) (fn [] 1))
     (set! (.-pauseVfs pool) (fn [] nil))
     (set! (.-pauseVfs pool) (fn [] nil))
@@ -146,7 +146,7 @@
       (fs/writeFile full-path (->buffer data)))))
       (fs/writeFile full-path (->buffer data)))))
 
 
 (defn- remove-vfs!
 (defn- remove-vfs!
-  [pool]
+  [^js pool]
   (when pool
   (when pool
     (fs/rm (.-repoDir pool) #js {:recursive true :force true})))
     (fs/rm (.-repoDir pool) #js {:recursive true :force true})))