aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/world/file/watch.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/world/file/watch.lux')
-rw-r--r--stdlib/source/library/lux/world/file/watch.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/world/file/watch.lux b/stdlib/source/library/lux/world/file/watch.lux
index df655ed9c..721e9b059 100644
--- a/stdlib/source/library/lux/world/file/watch.lux
+++ b/stdlib/source/library/lux/world/file/watch.lux
@@ -150,16 +150,16 @@
(do {! (try.with promise.monad)}
[current_files (..poll_files fs directory)
#let [creations (if (..creation? concern)
- (list.filter (|>> product.left (dictionary.key? file_tracker) not)
- current_files)
+ (list.only (|>> product.left (dictionary.key? file_tracker) not)
+ current_files)
(list))
available (|> current_files
(list\map product.left)
- (set.from_list text.hash))
+ (set.of_list text.hash))
deletions (if (..deletion? concern)
(|> (dictionary.entries file_tracker)
(list\map product.left)
- (list.filter (|>> (set.member? available) not)))
+ (list.only (|>> (set.member? available) not)))
(list))
modifications (list.all (function (_ [path current_modification])
(do maybe.monad
@@ -233,7 +233,7 @@
_ (do promise.monad
[_ (stm.commit (stm.write (|> changes
(list\map product.left)
- (dictionary.from_list text.hash))
+ (dictionary.of_list text.hash))
tracker))]
(wrap (#try.Success [])))
#let [[creations modifications deletions]
@@ -247,8 +247,8 @@
(wrap ($_ list\compose
(list\map (|>> product.left [..creation]) creations)
(|> modifications
- (list.filter (function (_ [path previous_modification current_modification])
- (not (instant\= previous_modification current_modification))))
+ (list.only (function (_ [path previous_modification current_modification])
+ (not (instant\= previous_modification current_modification))))
(list\map (|>> product.left [..modification])))
(list\map (|>> [..deletion]) deletions)
)))))