blob: fff07d28f7b3c14e761b96f2c4f76490a5dd9e80 (
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
|
(.module:
[lux #*
[abstract
[monad (#+ Monad)]]
[control
[try (#+ Try)]]
[data
[binary (#+ Binary)]
[collection
["." row]
["." list ("#\." functor)]]]
[world
["." file (#+ Path)]]]
[program
[compositor
[static (#+ Static)]]]
[//
[cache
["." dependency]]
["." archive (#+ Archive)
["." descriptor]
["." artifact]]
[//
[language
[lux
[generation (#+ Context)]]]]])
(type: #export Packager
(-> Archive Context (Try Binary)))
(type: #export Order
(List [archive.ID (List artifact.ID)]))
(def: #export order
(-> dependency.Order Order)
(list\map (function (_ [module [module_id [descriptor document]]])
(|> descriptor
(get@ #descriptor.registry)
artifact.artifacts
row.to_list
(list\map (|>> (get@ #artifact.id)))
[module_id]))))
|