format versions in `uninstall` (#125)

Fixes #122

executable/Uninstall.re

@@ -1,11 +1,13 @@
 open Fnm;
-open Lwt;
+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))
-  >>= (
-    installedVersion =>
+    >|= List.find_opt(x => Versions.Local.(x.name == version));
+
   switch (installedVersion) {
   | None =>
     Logger.error(
@@ -34,8 +36,7 @@ let run = (~version) => {
         </Pastel>
         " has correctly been removed."
       </Pastel>,
-        )
-        |> Lwt.return;
-      }
     );
+    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(
         () =>