blob: e1927e57779d05fa142200af9fbe2446a3507c54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(.module:
[lux #*
[data
[text
["%" format (#+ format)]]]
[world
["." file (#+ Path)]]]
["." // #_
["#." artifact (#+ Artifact)]])
(def: #export (repository system home)
(All [a] (-> (file.System a) Path Path))
(let [/ (\ system separator)]
(format home / ".m2" / "repository")))
(def: #export (path system home artifact)
(All [a] (-> (file.System a) Path Artifact Path))
(format (..repository system home)
(\ system separator)
(//artifact.path system artifact)))
|
