From 35c0807799717cd720ab28b35851c1a01a67445d Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Tue, 7 Sep 2021 22:50:21 -0400 Subject: De-taggification | part 4 --- stdlib/source/test/aedifex/command/deploy.lux | 60 +++++++++++++-------------- 1 file changed, 30 insertions(+), 30 deletions(-) (limited to 'stdlib/source/test/aedifex/command/deploy.lux') diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index 93bf3de79..219a2931b 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -5,49 +5,49 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["." environment]]] + ["[0]" environment]]] [data - ["." binary ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" binary ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8]]] - ["." format "_" - ["#" binary] - ["." tar] - ["." xml]] + ["[0]" utf8]]] + ["[0]" format "_" + ["[1]" binary] + ["[0]" tar] + ["[0]" xml]] [collection - ["." set]]] + ["[0]" set]]] [math - ["." random]] + ["[0]" random]] [world - ["." file] - ["." program {"+" [Program]}]]]] + ["[0]" file] + ["[0]" program {"+" [Program]}]]]] [program [compositor - ["." export]]] + ["[0]" export]]] [// - ["$." install] - ["$." version] + ["$[0]" install] + ["$[0]" version] [// - ["$." profile] - ["$." repository]]] + ["$[0]" profile] + ["$[0]" repository]]] [\\program - ["." / - ["//#" /// "_" - ["#" profile] - ["#." action] - ["#." pom] - ["#." hash] - ["#." repository {"+" [Repository]} - ["#/." remote]] - ["#." artifact {"+" [Artifact]} - ["#/." extension]]]]]) + ["[0]" / + ["//[1]" /// "_" + ["[1]" profile] + ["[1][0]" action] + ["[1][0]" pom] + ["[1][0]" hash] + ["[1][0]" repository {"+" [Repository]} + ["[1]/[0]" remote]] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" extension]]]]]) (def: (execute! program repository fs artifact profile) (-> (Program Async) (Repository Async) (file.System Async) -- cgit v1.2.3