diff options
| author | Eduardo Julian | 2017-01-02 17:26:10 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-01-02 17:26:10 -0400 |
| commit | 0fb83a40b0a25d4e7f729228d61a4e9b67ea6c47 (patch) | |
| tree | 26f5cf93d84e72ee5d3ed514b799204139617549 /luxc/src/lux/compiler/cache.clj | |
| parent | e8c5ef5c6ea9683a10ff2655497578c38ef3d9f7 (diff) | |
- Fixed some bugs with path separators that caused issues on Windows.
Diffstat (limited to '')
| -rw-r--r-- | luxc/src/lux/compiler/cache.clj | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/luxc/src/lux/compiler/cache.clj b/luxc/src/lux/compiler/cache.clj index 4bb144734..8c30f8c68 100644 --- a/luxc/src/lux/compiler/cache.clj +++ b/luxc/src/lux/compiler/cache.clj @@ -81,7 +81,12 @@ outdated-modules (->> (new File ^String @&&/!output-dir) .listFiles (filter #(.isDirectory ^File %)) (map module-dirs) doall (apply concat) - (map #(-> ^File % .getAbsolutePath (string/replace output-dir-prefix ""))) + (map (fn [^File dir-file] + (let [^String dir-module (-> dir-file + .getAbsolutePath + (string/replace output-dir-prefix "")) + corrected-dir-module (.replace dir-module java.io.File/separator "/")] + corrected-dir-module))) (filter outdated?))] (doseq [^String f outdated-modules] (clean-file (new File (str output-dir-prefix f)))) |