From 2b909032e7a0bd10cd7db52067d2fb701bfa95e5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 6 Jul 2021 21:34:21 -0400
Subject: Simplified the API for file-system operations.

---
 stdlib/source/test/aedifex/input.lux | 25 +++++++++++--------------
 1 file changed, 11 insertions(+), 14 deletions(-)

(limited to 'stdlib/source/test/aedifex/input.lux')

diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index 0241b27a9..c379a8b0c 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -8,19 +8,18 @@
     [concurrency
      ["." promise (#+ Promise)]]]
    [data
-    ["." binary]
-    ["." text
-     ["%" format (#+ format)]
+    [text
+     ["%" format]
      [encoding
       ["." utf8]]]
     [collection
      ["." set (#+ Set)]]]
    [math
-    ["." random (#+ Random)]]
+    ["." random]]
    [world
-    ["." file (#+ File)]]]
+    ["." file]]]
   [//
-   ["@." profile]]
+   ["$." profile]]
   {#program
    ["." /
     ["/#" // #_
@@ -45,18 +44,16 @@
   Test
   (<| (_.covering /._)
       (do {! random.monad}
-        [expected (\ ! map (set@ #//.parents (list)) @profile.random)
+        [expected (\ ! map (set@ #//.parents (list)) $profile.random)
          #let [fs (: (file.System Promise)
                      (file.mock (\ file.default separator)))]]
         (wrap (do promise.monad
                 [verdict (do //action.monad
-                           [file (: (Promise (Try (File Promise)))
-                                    (file.get_file promise.monad fs //project.file))
-                            _ (|> expected
-                                  //format.profile
-                                  %.code
-                                  (\ utf8.codec encode)
-                                  (\ file over_write))
+                           [#let [profile (|> expected
+                                              //format.profile
+                                              %.code
+                                              (\ utf8.codec encode))]
+                            _ (\ fs write profile //project.file)
                             actual (: (Promise (Try Profile))
                                       (/.read promise.monad fs //.default))]
                            (wrap (\ //.equivalence =
-- 
cgit v1.2.3