diff options
Diffstat (limited to 'stdlib/source/test/lux/world/file.lux')
| -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 d2f3cde55..b7ffb5f6c 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -193,7 +193,7 @@ {.#Some {.#Right children}} (|> children (monad.only ! (..file? disk)) - (at ! each (|>> {try.#Success}))) + (of ! each (|>> {try.#Success}))) _ (in {try.#Failure ""})))) @@ -204,7 +204,7 @@ {.#Some {.#Right children}} (|> children (monad.only ! (..directory? disk)) - (at ! each (|>> {try.#Success}))) + (of ! each (|>> {try.#Success}))) _ (in {try.#Failure ""})))) @@ -257,7 +257,7 @@ (in (do async.monad [.let [fs (/.mock /)] - ? (at fs delete file)] + ? (of fs delete file)] (unit.coverage [/.cannot_delete] (when ? {try.#Failure error} @@ -267,7 +267,7 @@ false)))) (in (do async.monad [.let [fs (/.mock /)] - ? (at fs read file)] + ? (of fs read file)] (unit.coverage [/.cannot_find_file] (when ? {try.#Failure error} @@ -277,8 +277,8 @@ false)))) (in (do async.monad [.let [fs (/.mock /)] - ?/0 (at fs directory_files file) - ?/1 (at fs sub_directories file)] + ?/0 (of fs directory_files file) + ?/1 (of fs sub_directories file)] (unit.coverage [/.cannot_find_directory] (when [?/0 ?/1] [{try.#Failure error/0} {try.#Failure error/1}] |