diff options
Diffstat (limited to 'stdlib/source/test/lux/world/file.lux')
-rw-r--r-- | stdlib/source/test/lux/world/file.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index a7e9de34a..ae9d7ff01 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -66,8 +66,8 @@ _ (in {try.#Failure ""})))) -(def: (write fs disk it @) - (-> (/.System Async) (Atom Disk) (-> Binary /.Path (IO (Try Any)))) +(def: (write fs disk @ it) + (-> (/.System Async) (Atom Disk) (-> /.Path Binary (IO (Try Any)))) (do [! io.monad] [now instant.now disk' (atom.read! disk)] @@ -203,13 +203,13 @@ _ (in {try.#Failure ""})))) - (def: (append it @) + (def: (append @ it) (do [! io.monad] [now instant.now disk' (atom.read! disk)] (case (dictionary.value @ disk') {.#None} - (..write mock disk it @) + (..write mock disk @ it) {.#Some {.#Left [_ old]}} (do ! @@ -220,7 +220,7 @@ _ (in {try.#Failure ""})))) - (def: (modify it @) + (def: (modify @ it) (do [! io.monad] [disk' (atom.read! disk)] (case (dictionary.value @ disk') @@ -231,10 +231,10 @@ _ (in {try.#Failure ""})))) - (def: (move it @) + (def: (move @ it) (do [! (try.with io.monad)] [data (..read disk @) - write (..write mock disk data it)] + write (..write mock disk it data)] (..delete mock disk @))) ))) |