... This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
... If a copy of the MPL was not distributed with this file, You can obtain one at https://mozilla.org/MPL/2.0/.

(.require
 [library
  [lux (.except)
   [abstract
    [monad (.only do)]]
   [control
    [try (.only Try)]
    [concurrency
     [async (.only Async)]]]
   [world
    [environment (.only Environment)]
    [shell (.only Shell)]
    ["[0]" file]
    ["[0]" console (.only Console)]]]]
 ["[0]" /
  ["[1][0]" snapshot]
  ["[1][0]" release]
  ["/[1]" //
   ["/[1]" //
    [command (.only Command)]
    [repository (.only Repository)]
    [artifact (.only Artifact)]
    ["/" profile]
    ["[1][0]" action]]]])

(def .public success
  "Successfully deployed the project.")

(def .public (do! environment shell console local remote fs artifact profile)
  (-> (Environment Async) (Shell Async) (Console Async) (Repository Async) (Repository Async) (file.System Async) Artifact (Command Any))
  (do [! ///action.monad]
    [_ (if (/snapshot.snapshot? artifact)
         (/snapshot.do! console remote fs artifact profile)
         (/release.do! environment shell console local remote fs artifact profile))]
    (is (Async (Try Any))
        (console.write_line ..success console))))