diff options
| author | Eduardo Julian | 2021-07-17 22:48:54 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-07-17 22:48:54 -0400 |
| commit | 442d1557b879a8a4bd76f441f72a17bfb71cf05f (patch) | |
| tree | 7726138a487b3d64081c2cfdf99a564cf2b6ed7b /stdlib/source/library/lux/world/shell.lux | |
| parent | 2c99b4515447315d76a8dc203a2dbcafc09506ea (diff) | |
Now allowing compilers to generate custom-named outputs.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/world/shell.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/world/shell.lux b/stdlib/source/library/lux/world/shell.lux index 52cd3efd4..ddfacbc5e 100644 --- a/stdlib/source/library/lux/world/shell.lux +++ b/stdlib/source/library/lux/world/shell.lux @@ -318,8 +318,8 @@ (: (-> s (Try [s Exit])) on_await)) -(`` (implementation: (mock_process mock state) - (All [s] (-> (Mock s) (Atom s) (Process IO))) +(`` (implementation: (mock_process state mock) + (All [s] (-> (Atom s) (Mock s) (Process IO))) (~~ (template [<name> <mock>] [(def: (<name> _) @@ -368,7 +368,7 @@ s (Shell IO))) - (def: (execute input) - (io.io (do try.monad - [mock (mock input)] - (wrap (..mock_process mock (atom.atom init))))))) + (def: execute + (|>> mock + (\ try.monad map (..mock_process (atom.atom init))) + io.io))) |