From 0205e5146b50ab066d152fccda0fc8cef4eef852 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 3 Dec 2020 02:09:57 -0400
Subject: Detect duplicate files coming from dependencies.

---
 stdlib/source/program/aedifex/command/deps.lux | 29 ++++++++++++++------------
 1 file changed, 16 insertions(+), 13 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index dfe58d707..67dc19e47 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -9,23 +9,26 @@
     [collection
      ["." set (#+ Set)]]]
    [world
-    ["." file]]]
-  ["." /// #_
-   [command (#+ Command)]
-   [artifact (#+ Artifact)]
-   [repository (#+ Repository)]
-   ["#" profile]
-   ["#." action (#+ Action)]
-   ["#." cache]
-   ["#." dependency #_
-    ["#/." resolution (#+ Resolution)]]])
+    ["." file]
+    ["." console (#+ Console)]]]
+  ["." // #_
+   ["#." clean]
+   ["/#" // #_
+    [command (#+ Command)]
+    [artifact (#+ Artifact)]
+    [repository (#+ Repository)]
+    ["#" profile]
+    ["#." action (#+ Action)]
+    ["#." cache]
+    ["#." dependency #_
+     ["#/." resolution (#+ Resolution)]]]])
 
-(def: #export (do! fs repositories profile)
-  (-> (file.System Promise) (List (Repository Promise)) (Command Resolution))
+(def: #export (do! console fs repositories profile)
+  (-> (Console Promise) (file.System Promise) (List (Repository Promise)) (Command Resolution))
   (do ///action.monad
     [#let [dependencies (set.to-list (get@ #///.dependencies profile))]
      cache (///cache.read-all fs dependencies ///dependency/resolution.empty)
      resolution (///dependency/resolution.all repositories dependencies cache)
      cached (///cache.write-all fs resolution)
-     #let [_ (log! "Successfully resolved dependencies!")]]
+     _ (console.write-line //clean.success console)]
     (wrap resolution)))
-- 
cgit v1.2.3