aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/parser.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/aedifex/parser.lux')
-rw-r--r--stdlib/source/test/aedifex/parser.lux80
1 files changed, 40 insertions, 40 deletions
diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux
index 5565875fb..1d3168d93 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -1,37 +1,37 @@
(.using
- [library
- [lux "*"
- ["_" test {"+" Test}]
- [abstract
- [monad {"+" do}]
- [hash {"+" Hash}]]
- [control
- [pipe {"+" case>}]
- ["[0]" try]
- [parser
- ["<[0]>" code]]]
- [data
- ["[0]" text]
- [collection
- ["[0]" set {"+" Set}]
- ["[0]" dictionary {"+" Dictionary}]
- ["[0]" list ("[1]#[0]" functor)]]]
- [math
- ["[0]" random {"+" Random}]
- [number
- ["n" nat]]]
- [macro
- ["[0]" code]]]]
- [//
- ["@[0]" profile]]
- [\\program
- ["[0]" /
- ["/[1]" // "_"
- ["[1]" profile]
- ["[1][0]" project {"+" Project}]
- ["[1][0]" artifact {"+" Artifact}]
- ["[1][0]" dependency {"+" Dependency}]
- ["[1][0]" format]]]])
+ [library
+ [lux "*"
+ ["_" test {"+" Test}]
+ [abstract
+ [monad {"+" do}]
+ [hash {"+" Hash}]]
+ [control
+ [pipe {"+" case>}]
+ ["[0]" try]
+ [parser
+ ["<[0]>" code]]]
+ [data
+ ["[0]" text]
+ [collection
+ ["[0]" set {"+" Set}]
+ ["[0]" dictionary {"+" Dictionary}]
+ ["[0]" list ("[1]#[0]" functor)]]]
+ [math
+ ["[0]" random {"+" Random}]
+ [number
+ ["n" nat]]]
+ [macro
+ ["[0]" code]]]]
+ [//
+ ["@[0]" profile]]
+ [\\program
+ ["[0]" /
+ ["/[1]" // "_"
+ ["[1]" profile]
+ ["[1][0]" project {"+" Project}]
+ ["[1][0]" artifact {"+" Artifact}]
+ ["[1][0]" dependency {"+" Dependency}]
+ ["[1][0]" format]]]])
(def: name
(Random //.Name)
@@ -55,16 +55,16 @@
(def: with_default_sources
(-> //.Profile //.Profile)
- (revised@ //.#sources
- (: (-> (Set //.Source) (Set //.Source))
- (function (_ sources)
- (if (set.empty? sources)
- (set.of_list text.hash (list //.default_source))
- sources)))))
+ (revised //.#sources
+ (: (-> (Set //.Source) (Set //.Source))
+ (function (_ sources)
+ (if (set.empty? sources)
+ (set.of_list text.hash (list //.default_source))
+ sources)))))
(def: with_default_repository
(-> //.Profile //.Profile)
- (revised@ //.#repositories (set.has //.default_repository)))
+ (revised //.#repositories (set.has //.default_repository)))
(def: (with_empty_profile project)
(-> Project Project)