blob: 94b6f798e1352a8a0370d9fc1179b45b442dc427 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
(.using
[library
[lux "*"
[control
[try {"+" Try}]]
[data
[binary {"+" Binary}]
["[0]" product]
[collection
[dictionary {"+" Dictionary}]
["[0]" sequence]
["[0]" list ("[1]#[0]" functor)]]]
[world
["[0]" file]]]]
[//
["[0]" cache "_"
["[1]/[0]" module]]
["[0]" archive {"+" Archive}
["[0]" artifact]
["[0]" registry]
["[0]" unit]
["[0]" module
["[0]" descriptor]]]])
(type: .public Packager
(-> (Dictionary file.Path Binary)
Archive
unit.ID
(Try (Either Binary
(List [Text Binary])))))
(type: .public Order
(List [module.ID (List artifact.ID)]))
(def: .public order
(-> (cache/module.Order Any) Order)
(list#each (function (_ [module [module_id entry]])
(|> entry
(value@ archive.#registry)
registry.artifacts
sequence.list
(list#each (|>> product.left (value@ artifact.#id)))
[module_id]))))
|