You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
679 B
27 lines
679 B
6 years ago
|
open Nsw;
|
||
|
|
|
||
|
|
let run = () => {
|
||
|
|
Console.log("Looking for some node versions upstream...");
|
||
|
|
|
||
|
|
let%lwt versions = Versions.getRemoteVersions();
|
||
|
|
let currentVersion = Versions.getCurrentVersion();
|
||
|
|
|
||
|
|
versions
|
||
|
|
|> List.iter(version => {
|
||
|
|
open Versions.Remote;
|
||
|
|
let str = "* " ++ version.name;
|
||
|
|
let color =
|
||
|
|
switch (currentVersion, version.installed) {
|
||
|
|
| (Some({name: currentVersionName, _}), _)
|
||
|
|
when currentVersionName == version.name =>
|
||
|
|
Some(Pastel.Cyan)
|
||
|
|
| (_, true) => Some(Pastel.Green)
|
||
|
|
| (_, false) => None
|
||
|
|
};
|
||
|
|
|
||
|
|
Console.log(<Pastel ?color> str </Pastel>);
|
||
|
|
});
|
||
|
|
|
||
|
|
Lwt.return();
|
||
|
|
};
|