diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command/pom.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/pom.lux | 19 |
1 files changed, 11 insertions, 8 deletions
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))) |