From 9e2f1e76f2c8df01ed7687d934c3210fcf676bd6 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 16 Jun 2022 00:48:19 -0400 Subject: De-sigil-ification: suffix : [Part 13] --- stdlib/source/test/aedifex/command/install.lux | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'stdlib/source/test/aedifex/command/install.lux') diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux index de26f5ecb..a55e96d95 100644 --- a/stdlib/source/test/aedifex/command/install.lux +++ b/stdlib/source/test/aedifex/command/install.lux @@ -38,7 +38,7 @@ ["[1][0]" repository ["[1]/[0]" local]]]]]) -(def: .public (make_sources! fs sources) +(def .public (make_sources! fs sources) (-> (file.System Async) (Set file.Path) (Action (List Any))) (let [/ (at fs separator) ! ///action.monad] @@ -51,7 +51,7 @@ (is (Async (Try Any)) (file.make_file async.monad fs (binary.empty 0) (format head / head ".lux"))))))))) -(def: (execute! program fs sample) +(def (execute! program fs sample) (-> (Program Async) (file.System Async) ///.Profile (Async (Try Text))) (do ///action.monad [.let [console ($version.echo "")] @@ -59,7 +59,7 @@ _ (/.do! console fs (///repository/local.repository program fs) sample)] (at console read_line []))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] -- cgit v1.2.3