fnm/executable/Uninstall.re

open Fnm;
open Lwt.Infix;

let run = (~version) => {
  let version = Versions.format(version);

  let%lwt installedVersion =
    Versions.getInstalledVersions()
    >|= List.find_opt(x => Versions.Local.(x.name == version));

  switch (installedVersion) {
  | None =>
    Logger.error(
      <Pastel>
        "The version "
        <Pastel color=Pastel.Cyan> version </Pastel>
        " is not installed."
      </Pastel>,
    );
    exit(1);
  | Some(installedVersion) =>
    Logger.debug(
      <Pastel>
        "Uninstalling node "
        <Pastel color=Pastel.Cyan>
          Versions.Local.(installedVersion.name)
        </Pastel>
      </Pastel>,
    );
    let%lwt _ = Versions.Local.remove(installedVersion);
    Logger.info(
      <Pastel>
        "Node version "
        <Pastel color=Pastel.Cyan>
          Versions.Local.(installedVersion.name)
        </Pastel>
        " has correctly been removed."
      </Pastel>,
    );
    Lwt.return_unit;
  };
};