File tree Expand file tree Collapse file tree 2 files changed +6
-6
lines changed Expand file tree Collapse file tree 2 files changed +6
-6
lines changed Original file line number Diff line number Diff line change 581581 " .cljs" " .aot_cache" (util/clojurescript-version )
582582 (build-affecting-options-sha path opts))))
583583
584- ; ; TODO: we use a URL to get a bunch of file paths, the forward slashes probably
585- ; ; aren't going to work for Windows
586584(defn cacheable-files
587585 ([rsrc ext]
588586 (cacheable-files rsrc ext nil ))
589587 ([rsrc ext opts]
590588 (let [{:keys [ns ]} (ana/parse-ns rsrc)
591589 path (cache-base-path (util/path rsrc) opts)
592- name (util/ns->relpath ns nil )]
590+ name (util/ns->relpath ns nil File/separatorChar )]
593591 (into {}
594592 (map
595593 (fn [[k v]]
596594 [k (io/file path
597- (if (and (= " cljs/ core$macros" name)
595+ (if (and (= ( str " cljs" File/separatorChar " core$macros" ) name)
598596 (= :source k))
599- (str " cljs/ core.cljc" )
597+ (str " cljs" File/separatorChar " core.cljc" )
600598 (str name v)))]))
601599 {:source (str " ." ext)
602600 :output-file " .js"
Original file line number Diff line number Diff line change 6969 provide the file extension, defaults to :cljs."
7070 ([ns ] (ns->relpath ns :cljs ))
7171 ([ns ext]
72- (cond-> (string/replace (munge-path ns ) \. \/)
72+ (ns->relpath ns ext \/))
73+ ([ns ext sep]
74+ (cond-> (string/replace (munge-path ns ) \. sep)
7375 ext (str " ." (name ext)))))
7476
7577(defn ns->source
You can’t perform that action at this time.
0 commit comments