format versions in `uninstall` (#125)

Fixes #122

executable/Uninstall.re

@@ -1,41 +1,42 @@
 open Fnm;
-open Lwt;
+open Lwt.Infix;
 
 let run = (~version) => {
-  Versions.getInstalledVersions()
+  let version = Versions.format(version);
-  >|= List.find_opt(x => Versions.Local.(x.name == version))
+
-  >>= (
+  let%lwt installedVersion =
-    installedVersion =>
+    Versions.getInstalledVersions()
-      switch (installedVersion) {
+    >|= List.find_opt(x => Versions.Local.(x.name == version));
-      | None =>
+
-        Logger.error(
+  switch (installedVersion) {
-          <Pastel>
+  | None =>
-            "The version "
+    Logger.error(
-            <Pastel color=Pastel.Cyan> version </Pastel>
+      <Pastel>
-            " is not installed."
+        "The version "
-          </Pastel>,
+        <Pastel color=Pastel.Cyan> version </Pastel>
-        );
+        " is not installed."
-        exit(1);
+      </Pastel>,
-      | Some(installedVersion) =>
+    );
-        Logger.debug(
+    exit(1);
-          <Pastel>
+  | Some(installedVersion) =>
-            "Uninstalling node "
+    Logger.debug(
-            <Pastel color=Pastel.Cyan>
+      <Pastel>
-              Versions.Local.(installedVersion.name)
+        "Uninstalling node "
-            </Pastel>
+        <Pastel color=Pastel.Cyan>
-          </Pastel>,
+          Versions.Local.(installedVersion.name)
-        );
+        </Pastel>
-        let%lwt _ = Versions.Local.remove(installedVersion);
+      </Pastel>,
-        Logger.info(
+    );
-          <Pastel>
+    let%lwt _ = Versions.Local.remove(installedVersion);
-            "Node version "
+    Logger.info(
-            <Pastel color=Pastel.Cyan>
+      <Pastel>
-              Versions.Local.(installedVersion.name)
+        "Node version "
-            </Pastel>
+        <Pastel color=Pastel.Cyan>
-            " has correctly been removed."
+          Versions.Local.(installedVersion.name)
-          </Pastel>,
+        </Pastel>
-        )
+        " has correctly been removed."
-        |> Lwt.return;
+      </Pastel>,
-      }
+    );
-  );
+    Lwt.return_unit;
+  };
 };

executable/Use.re

@@ -20,7 +20,7 @@ let error = (~quiet, arg) =>
   };
 
 let switchVersion = (~version, ~quiet) => {
-  open Lwt;
+  open Lwt.Infix;
   let info = info(~quiet);
   let debug = debug(~quiet);
   let%lwt parsedVersion =

library/Http.re

@@ -1,4 +1,4 @@
-open Lwt;
+open Lwt.Infix;
 open Cohttp;
 open Cohttp_lwt_unix;
 

library/Versions.re

@@ -46,7 +46,7 @@ module Local = {
   let remove = version => Fs.rmdir(version.fullPath);
 
   let getLatestInstalledNameByPrefix = prefix => {
-    open Lwt;
+    open Lwt.Infix;
     let%lwt versions =
       Lwt.catch(
         () =>