aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/input.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-06-04 19:34:42 -0400
committerEduardo Julian2022-06-04 19:34:42 -0400
commitf9e33ae96aec4741385a576719786092c9e68043 (patch)
tree140057dfc054346eab721f9905f0f0fff22ad933 /stdlib/source/program/aedifex/input.lux
parent56d2835d35093e2d92c5e8a4371aa322b55e037b (diff)
De-sigil-ification: #
Diffstat (limited to 'stdlib/source/program/aedifex/input.lux')
-rw-r--r--stdlib/source/program/aedifex/input.lux18
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/input.lux b/stdlib/source/program/aedifex/input.lux
index 5733fa97a..c85970a5b 100644
--- a/stdlib/source/program/aedifex/input.lux
+++ b/stdlib/source/program/aedifex/input.lux
@@ -45,18 +45,18 @@
(def: project_parser
(-> Binary (Try Project))
(|>> (pipe.do try.monad
- [(# utf8.codec decoded)]
+ [(at utf8.codec decoded)]
[..lux_parser]
[(list) (<code>.result //parser.project)])))
(def: .public (read monad fs profiles)
(All (_ !) (-> (Monad !) (file.System !) (List Name) (! (Try Profile))))
(|> //project.file
- (# fs read)
- (# monad each
- (function (_ it)
- (do [! try.monad]
- [it it
- it (..project_parser it)
- it (monad.each ! (//project.profile it) (partial_list //profile.default profiles))]
- (in (mix.with_monoid //profile.monoid list.mix it)))))))
+ (at fs read)
+ (at monad each
+ (function (_ it)
+ (do [! try.monad]
+ [it it
+ it (..project_parser it)
+ it (monad.each ! (//project.profile it) (partial_list //profile.default profiles))]
+ (in (mix.with_monoid //profile.monoid list.mix it)))))))