fnm/executable/Uninstall.re

open Fnm;
open Lwt;

let run = (~version) => {
  Versions.getInstalledVersions()
  >|= List.find_opt(x => Versions.Local.(x.name == version))
  >>= (
    installedVersion =>
      switch (installedVersion) {
      | None =>
        Logger.log(
          <Pastel>
            "The version "
            <Pastel color=Pastel.Cyan> version </Pastel>
            " is not installed."
          </Pastel>,
        );
        exit(1);
      | Some(installedVersion) =>
        {
          Logger.log(
            <Pastel>
              "Uninstalling node "
              <Pastel color=Pastel.Cyan>
                Versions.Local.(installedVersion.name)
              </Pastel>
            </Pastel>,
          );
        };
        let%lwt _ = Versions.Local.remove(installedVersion);
        Logger.log(
          <Pastel>
            "Node version "
            <Pastel color=Pastel.Cyan>
              Versions.Local.(installedVersion.name)
            </Pastel>
            " has correctly been removed."
          </Pastel>,
        )
        |> Lwt.return;
      }
  );
};