aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/tool/compiler/meta/packager.lux
blob: 759cb26a5ffbfb2c9121d7c0ed0242bd97fb329b (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
44
(.using
 [library
  [lux (.except)
   [control
    [try (.only Try)]]
   [data
    [binary (.only Binary)]
    ["[0]" product]
    [collection
     [dictionary (.only Dictionary)]
     ["[0]" sequence]
     ["[0]" list (.open: "[1]#[0]" functor)]]]
   [world
    ["[0]" file]]]]
 [//
  ["[0]" cache
   [dependency
    ["[1]/[0]" module]]]
  ["[0]" archive (.only Archive)
   ["[0]" artifact]
   ["[0]" registry]
   ["[0]" unit]
   ["[0]" module (.only)
    ["[0]" descriptor]]]])

(type: .public Packager
  (-> (Dictionary file.Path Binary)
      Archive
      (Maybe 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
                   (the archive.#registry)
                   registry.artifacts
                   sequence.list
                   (list#each (|>> product.left (the artifact.#id)))
                   [module_id]))))