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 (apply absolut-path
(URI. (str "file://" ;TODO: sollte hier nicht auch stehen:
(apply absolut-path ;(apply this/virtual-path-from-elements path-elements)
;TODO: sollte hier nicht auch stehen: path-elements)]
;(apply this/virtual-path-from-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)))