diff options
Diffstat (limited to 'stdlib/source/program/aedifex/input.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/input.lux | 18 |
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))))))) |