fix test
This commit is contained in:
parent
acad46dc66
commit
b9fd073cd2
1 changed files with 4 additions and 7 deletions
|
@ -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)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue