blob: 17ddeb4cf0299ba56ed91259376a709a824ff759 (
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)
(All [a] (-> (file.System a) Path))
(let [/ (:: system separator)]
(format "~" / ".m2" / "repository")))
(def: #export (path system artifact)
(All [a] (-> (file.System a) Artifact Path))
(format (..repository system)
(:: system separator)
(//artifact.path system artifact)))
|