diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/install.lux')
-rw-r--r-- | stdlib/source/test/aedifex/command/install.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux index 4de5c5226..55bb762d0 100644 --- a/stdlib/source/test/aedifex/command/install.lux +++ b/stdlib/source/test/aedifex/command/install.lux @@ -40,7 +40,7 @@ (def: .public (make_sources! fs sources) (-> (file.System Async) (Set file.Path) (Action (List Any))) - (let [/ (# fs separator) + (let [/ (at fs separator) ! ///action.monad] (|> sources set.list @@ -57,18 +57,18 @@ [.let [console ($version.echo "")] _ (..make_sources! fs (the ///.#sources sample)) _ (/.do! console fs (///repository/local.repository program fs) sample)] - (# console read_line []))) + (at console read_line []))) (def: .public test Test (<| (_.covering /._) (do [! random.monad] [identity $artifact.random - sample (# ! each (has ///.#identity {.#Some identity}) - $profile.random) + sample (at ! each (has ///.#identity {.#Some identity}) + $profile.random) home (random.alphabetic 5) working_directory (random.alphabetic 5) - .let [/ (# file.default separator)]] + .let [/ (at file.default separator)]] (all _.and (in (do [! async.monad] [.let [fs (file.mock /) @@ -78,16 +78,16 @@ library_path (format artifact_path ///artifact/extension.lux_library) pom_path (format artifact_path ///artifact/extension.pom)] verdict (do [! ///action.monad] - [succeeded! (# ! each (text#= /.success) - (..execute! program fs sample)) + [succeeded! (at ! each (text#= /.success) + (..execute! program fs sample)) library_exists! (|> library_path (format home /) - (# fs file?) - (# async.monad each (|>> {try.#Success}))) + (at fs file?) + (at async.monad each (|>> {try.#Success}))) pom_exists! (|> pom_path (format home /) - (# fs file?) - (# async.monad each (|>> {try.#Success})))] + (at fs file?) + (at async.monad each (|>> {try.#Success})))] (in (and succeeded! library_exists! pom_exists!)))] |