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
[& path-elements]
(let [path-from-fs
(Paths/get
(URI. (str "file://"
(apply absolut-path
;TODO: sollte hier nicht auch stehen:
;(apply this/virtual-path-from-elements path-elements)
path-elements
))))]
(apply absolut-path
;TODO: sollte hier nicht auch stehen:
;(apply this/virtual-path-from-elements path-elements)
path-elements)]
(when (Files/exists path-from-fs follow-link-option)
path-from-fs)))