'|' is not permit for filename in Windows

fulcrologic · Jan 9, 2025 · dac1bcc · dac1bcc
1 parent c0a02ee
commit dac1bcc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/main/com/fulcrologic/fulcro/networking/file_upload.clj b/src/main/com/fulcrologic/fulcro/networking/file_upload.clj
@@ -30,7 +30,7 @@
   (try
     (let [ast             (eql/query->ast txn)
           mutation->files (reduce (fn [result {:keys [filename] :as file}]
-                                    (enc/if-let [[mutation-name filename] (some-> filename (str/split #"[|]"))
+                                    (enc/if-let [[mutation-name filename] (some-> filename (str/split #"[%]"))
                                                  mutation-sym (some-> mutation-name (edn/read-string))]
                                       (update result mutation-sym (fnil conj []) (assoc file :filename filename))
                                       (do

diff --git a/src/main/com/fulcrologic/fulcro/networking/file_upload.cljs b/src/main/com/fulcrologic/fulcro/networking/file_upload.cljs
@@ -112,7 +112,7 @@
            (doseq [{:keys [dispatch-key params]} (:children ast)]
              (when-let [uploads (::uploads params)]
                (doseq [{:file/keys [name content content-type]} uploads]
-                 (let [name-with-mutation (str dispatch-key "|" name)
+                 (let [name-with-mutation (str dispatch-key "%" name)
                        js-value           (-> content meta :js-value)
                        content            (some-> js-value (js-value->uploadable-object content-type))]
                    (.append form "files" content name-with-mutation)))))