diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/world/file.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index 2e06d0af5..5617489b9 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -188,7 +188,7 @@ {.#Some {.#Right children}} (|> children (monad.only ! (..file? disk)) - (# ! each (|>> {try.#Success}))) + (at ! each (|>> {try.#Success}))) _ (in {try.#Failure ""})))) @@ -199,7 +199,7 @@ {.#Some {.#Right children}} (|> children (monad.only ! (..directory? disk)) - (# ! each (|>> {try.#Success}))) + (at ! each (|>> {try.#Success}))) _ (in {try.#Failure ""})))) @@ -252,7 +252,7 @@ (in (do async.monad [.let [fs (/.mock /)] - ? (# fs delete file)] + ? (at fs delete file)] (_.coverage' [/.cannot_delete] (case ? {try.#Failure error} @@ -262,7 +262,7 @@ false)))) (in (do async.monad [.let [fs (/.mock /)] - ? (# fs read file)] + ? (at fs read file)] (_.coverage' [/.cannot_find_file] (case ? {try.#Failure error} @@ -272,8 +272,8 @@ false)))) (in (do async.monad [.let [fs (/.mock /)] - ?/0 (# fs directory_files file) - ?/1 (# fs sub_directories file)] + ?/0 (at fs directory_files file) + ?/1 (at fs sub_directories file)] (_.coverage' [/.cannot_find_directory] (case [?/0 ?/1] [{try.#Failure error/0} {try.#Failure error/1}] |