From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 stdlib/source/program/aedifex/command/auto.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/program/aedifex/command/auto.lux')

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 805ffb1ba..0a1998730 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -33,7 +33,7 @@
         (\ ! map (|>> (try.else (list))
                       (monad.map ! (targets fs))))
         (\ ! join)
-        (\ ! map (|>> list.joined (list& path))))))
+        (\ ! map (|>> list.together (list& path))))))
 
 (def: .public delay
   Nat
@@ -41,7 +41,7 @@
 
 (def: (pause delay)
   (-> Nat (Async (Try Any)))
-  (async.delayed delay (#try.Success [])))
+  (async.after delay (#try.Success [])))
 
 (def: .public (do! delay watcher command)
   (All [a]
@@ -53,10 +53,10 @@
       (with_expansions [<call> ((command console program fs shell resolution) profile)]
         (do {! async.monad}
           [targets (|> profile
-                       (get@ #///.sources)
+                       (value@ #///.sources)
                        set.list
                        (monad.map ! (..targets fs))
-                       (\ ! map list.joined))]
+                       (\ ! map list.together))]
           (do {! ///action.monad}
             [_ (monad.map ! (\ watcher start watch.modification) targets)
              _ <call>]
-- 
cgit v1.2.3