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 581
581
" .cljs" " .aot_cache" (util/clojurescript-version )
582
582
(build-affecting-options-sha path opts))))
583
583
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
586
584
(defn cacheable-files
587
585
([rsrc ext]
588
586
(cacheable-files rsrc ext nil ))
589
587
([rsrc ext opts]
590
588
(let [{:keys [ns ]} (ana/parse-ns rsrc)
591
589
path (cache-base-path (util/path rsrc) opts)
592
- name (util/ns->relpath ns nil )]
590
+ name (util/ns->relpath ns nil File/separatorChar )]
593
591
(into {}
594
592
(map
595
593
(fn [[k v]]
596
594
[k (io/file path
597
- (if (and (= " cljs/ core$macros" name)
595
+ (if (and (= ( str " cljs" File/separatorChar " core$macros" ) name)
598
596
(= :source k))
599
- (str " cljs/ core.cljc" )
597
+ (str " cljs" File/separatorChar " core.cljc" )
600
598
(str name v)))]))
601
599
{:source (str " ." ext)
602
600
:output-file " .js"
Original file line number Diff line number Diff line change 69
69
provide the file extension, defaults to :cljs."
70
70
([ns ] (ns->relpath ns :cljs ))
71
71
([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)
73
75
ext (str " ." (name ext)))))
74
76
75
77
(defn ns->source
You can’t perform that action at this time.
0 commit comments