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/pom.lux | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux
index 28bd23921..cf07ad0e0 100644
--- a/stdlib/source/program/aedifex/command/pom.lux
+++ b/stdlib/source/program/aedifex/command/pom.lux
@@ -15,14 +15,17 @@
     [format
      ["." xml]]]
    [world
-    ["." file (#+ Path File)]]]
-  ["." /// #_
-   [command (#+ Command)]
-   ["#." action (#+ Action)]
-   ["#." pom]])
+    ["." file (#+ Path File)]
+    ["." console (#+ Console)]]]
+  ["." // #_
+   ["#." clean]
+   ["/#" // #_
+    [command (#+ Command)]
+    ["#." action (#+ Action)]
+    ["#." pom]]])
 
-(def: #export (do! fs profile)
-  (-> (file.System Promise) (Command Path))
+(def: #export (do! console fs profile)
+  (-> (Console Promise) (file.System Promise) (Command Path))
   (do ///action.monad
     [pom (promise\wrap (///pom.write profile))
      file (: (Promise (Try (File Promise)))
@@ -31,5 +34,5 @@
                  (\ xml.codec encode)
                  encoding.to-utf8
                  (!.use (\ file over-write)))
-     #let [_ (log! "Successfully wrote POM file!")]]
+     _ (console.write-line //clean.success console)]
     (wrap ///pom.file)))
-- 
cgit v1.2.3