Gave Aedifex support for multiple profiles.

1 files changed, 8 insertions, 6 deletions

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 5bf759a06..cbb76edbb 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -11,12 +11,13 @@
    [data
     [collection
      ["." array]
-     ["." list]]]
+     ["." list]
+     ["." set]]]
    [world
     [file (#+ Path)]]]
   ["." // #_
    ["/#" // #_
-    ["#" project]
+    ["#" profile]
     ["#." action (#+ Action)]
     ["#." command (#+ Command)]]])
 
@@ -115,17 +116,18 @@
       #.None
       (wrap []))))
 
-(def: #export (do! command project)
+(def: #export (do! command profile)
   (All [a] (-> (Command a) (Command Any)))
   (do {@ ///action.monad}
     [#let [fs (java/nio/file/FileSystems::getDefault)]
      watcher (promise.future (java/nio/file/FileSystem::newWatchService fs))
-     targets (|> project
+     targets (|> profile
                  (get@ #///.sources)
+                 set.to-list
                  (monad.map @ ..targets)
                  (:: @ map list.concat))
      _ (monad.map @ (..watch! watcher) targets)
-     _ (command project)]
+     _ (command profile)]
     (loop [_ []]
       (do @
         [?key (..poll! watcher)
@@ -133,7 +135,7 @@
              (#.Some key)
              (do @
                [_ (promise.future (..drain! watcher))
-                _ (command project)]
+                _ (command profile)]
                (wrap []))
 
              #.None