diff options
Diffstat (limited to 'stdlib/source/library/lux/world/file/watch.lux')
| -rw-r--r-- | stdlib/source/library/lux/world/file/watch.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/library/lux/world/file/watch.lux b/stdlib/source/library/lux/world/file/watch.lux index c7642f6b5..0bbc37e35 100644 --- a/stdlib/source/library/lux/world/file/watch.lux +++ b/stdlib/source/library/lux/world/file/watch.lux @@ -113,7 +113,7 @@ (-> Concern //.Path (Var Directory_Tracker) (STM Bit)) (do {! stm.monad} [@tracker (stm.read tracker)] - (case (dictionary.get path @tracker) + (case (dictionary.value path @tracker) (#.Some [old_concern last_modified]) (do ! [_ (stm.update (dictionary.has path [new_concern last_modified]) tracker)] @@ -167,7 +167,7 @@ (list)) modifications (list.all (function (_ [path current_modification]) (do maybe.monad - [previous_modification (dictionary.get path file_tracker)] + [previous_modification (dictionary.value path file_tracker)] (in [path previous_modification current_modification]))) current_files)]] (in [[directory @@ -211,7 +211,7 @@ (stm.commit (do stm.monad [@tracker (stm.read tracker)] - (in (case (dictionary.get path @tracker) + (in (case (dictionary.value path @tracker) (#.Some [concern file_tracker]) (#try.Success concern) @@ -221,7 +221,7 @@ (stm.commit (do {! stm.monad} [@tracker (stm.read tracker)] - (case (dictionary.get path @tracker) + (case (dictionary.value path @tracker) (#.Some [concern file_tracker]) (do ! [_ (stm.update (dictionary.lacks path) tracker)] @@ -312,16 +312,16 @@ (-> (java/nio/file/WatchEvent a) Concern)) (let [kind (:as (java/nio/file/WatchEvent$Kind java/nio/file/Path) (java/nio/file/WatchEvent::kind event))] - (cond (is? (java/nio/file/StandardWatchEventKinds::ENTRY_CREATE) - kind) + (cond (same? (java/nio/file/StandardWatchEventKinds::ENTRY_CREATE) + kind) ..creation - (is? (java/nio/file/StandardWatchEventKinds::ENTRY_MODIFY) - kind) + (same? (java/nio/file/StandardWatchEventKinds::ENTRY_MODIFY) + kind) ..modification - (is? (java/nio/file/StandardWatchEventKinds::ENTRY_DELETE) - kind) + (same? (java/nio/file/StandardWatchEventKinds::ENTRY_DELETE) + kind) ..deletion ... else @@ -426,7 +426,7 @@ (function (_ path) (do {! async.monad} [@tracker (stm.commit (stm.read tracker))] - (case (dictionary.get path @tracker) + (case (dictionary.value path @tracker) (#.Some [concern key]) (do ! [_ (async.future @@ -452,7 +452,7 @@ (def: (concern path) (do async.monad [@tracker (stm.commit (stm.read tracker))] - (case (dictionary.get path @tracker) + (case (dictionary.value path @tracker) (#.Some [concern key]) (in (#try.Success concern)) |