aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor
diff options
context:
space:
mode:
authorEduardo Julian2021-09-10 01:21:23 -0400
committerEduardo Julian2021-09-10 01:21:23 -0400
commitcd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 (patch)
treeaf6366578f98f1a8e551f4da9f3ad230fd63a4dd /stdlib/source/program/compositor
parentef77466323f85a3d1b65b46a3deb93652ef22085 (diff)
Migrated variants to the new syntax.
Diffstat (limited to 'stdlib/source/program/compositor')
-rw-r--r--stdlib/source/program/compositor/cli.lux12
-rw-r--r--stdlib/source/program/compositor/export.lux4
-rw-r--r--stdlib/source/program/compositor/import.lux4
3 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/program/compositor/cli.lux b/stdlib/source/program/compositor/cli.lux
index 487c3976f..e678f2c6e 100644
--- a/stdlib/source/program/compositor/cli.lux
+++ b/stdlib/source/program/compositor/cli.lux
@@ -33,9 +33,9 @@
(type: .public Service
(Variant
- (#Compilation Compilation)
- (#Interpretation Compilation)
- (#Export Export)))
+ {#Compilation Compilation}
+ {#Interpretation Compilation}
+ {#Export Export}))
(template [<name> <long> <type>]
[(def: <name>
@@ -74,7 +74,7 @@
(def: .public target
(-> Service Target)
- (|>> (case> (^or (#Compilation [sources host_dependencies libraries target module])
- (#Interpretation [sources host_dependencies libraries target module])
- (#Export [sources target]))
+ (|>> (case> (^or {#Compilation [sources host_dependencies libraries target module]}
+ {#Interpretation [sources host_dependencies libraries target module]}
+ {#Export [sources target]})
target)))
diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index 2fe3171e0..3588e1dde 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -51,14 +51,14 @@
(text.replaced (\ fs separator) .module_separator)
tar.path)
source_code (tar.content source_code)]
- (in (#tar.Normal [path
+ (in {#tar.Normal [path
(instant.of_millis +0)
($_ tar.and
tar.read_by_owner tar.write_by_owner
tar.read_by_group tar.write_by_group
tar.read_by_other)
..no_ownership
- source_code])))))
+ source_code]}))))
(\ try.monad each row.of_list)
(\ async.monad in))))
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index 6b092e546..278e992fb 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -54,10 +54,10 @@
(\ ! each (|>> row.list
(monad.mix ! (function (_ entry import)
(case entry
- (#tar.Normal [path instant mode ownership content])
+ {#tar.Normal [path instant mode ownership content]}
(let [path (tar.from_path path)]
(case (dictionary.has' path (tar.data content) import)
- (#try.Failure error)
+ {#try.Failure error}
(exception.except ..duplicate [library path])
import'