aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/command')
-rw-r--r--stdlib/source/program/aedifex/command/auto.lux20
-rw-r--r--stdlib/source/program/aedifex/command/deploy.lux4
2 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 738cae467..8150fa1f6 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -64,17 +64,17 @@
(promise.future
(loop [path path]
(let [file (java/io/File::new path)]
- (do {@ (try.with io.monad)}
+ (do {! (try.with io.monad)}
[exists? (java/io/File::exists file)
directory? (java/io/File::isDirectory file)]
(if (and exists?
directory?)
- (do @
+ (do !
[children (java/io/File::listFiles file)
children (|> children
array.to-list
- (monad.map @ (|>> java/io/File::getAbsolutePath)))
- descendants (monad.map @ recur children)]
+ (monad.map ! (|>> java/io/File::getAbsolutePath)))
+ descendants (monad.map ! recur children)]
(wrap (#.Cons path (list.concat descendants))))
(wrap (list))))))))
@@ -118,22 +118,22 @@
(def: #export (do! command profile)
(All [a] (-> (Command a) (Command Any)))
- (do {@ ///action.monad}
+ (do {! ///action.monad}
[#let [fs (java/nio/file/FileSystems::getDefault)]
watcher (promise.future (java/nio/file/FileSystem::newWatchService fs))
targets (|> profile
(get@ #///.sources)
set.to-list
- (monad.map @ ..targets)
- (:: @ map list.concat))
- _ (monad.map @ (..watch! watcher) targets)
+ (monad.map ! ..targets)
+ (:: ! map list.concat))
+ _ (monad.map ! (..watch! watcher) targets)
_ (command profile)]
(loop [_ []]
- (do @
+ (do !
[?key (..poll! watcher)
_ (case ?key
(#.Some key)
- (do @
+ (do !
[_ (promise.future (..drain! watcher))
_ (command profile)]
(wrap []))
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index b8ac5c97c..25b1a15aa 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -63,8 +63,8 @@
{#///dependency.artifact identity
#///dependency.type type}
content))))]
- (do {@ ///action.monad}
- [library (:: @ map (binary.run tar.writer)
+ (do {! ///action.monad}
+ [library (:: ! map (binary.run tar.writer)
(export.library (file.async file.default)
(set.to-list (get@ #/.sources profile))))
pom (promise@wrap (///pom.write profile))