blob: 732ae18c09ebf61017bc7a4b9c9c2a2a8c575247 (
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 !)
(-> (Monad !) (file.System !) Static 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]))))
|