This commit is contained in:
jem 2020-02-14 19:49:45 +01:00
parent acad46dc66
commit b9fd073cd2

View file

@ -30,13 +30,10 @@
(defn path-if-exists (defn path-if-exists
[& path-elements] [& path-elements]
(let [path-from-fs (let [path-from-fs
(Paths/get
(URI. (str "file://"
(apply absolut-path (apply absolut-path
;TODO: sollte hier nicht auch stehen: ;TODO: sollte hier nicht auch stehen:
;(apply this/virtual-path-from-elements path-elements) ;(apply this/virtual-path-from-elements path-elements)
path-elements path-elements)]
))))]
(when (Files/exists path-from-fs follow-link-option) (when (Files/exists path-from-fs follow-link-option)
path-from-fs))) path-from-fs)))