diff --git a/executable/Uninstall.re b/executable/Uninstall.re
index f7d19e5..fb99eba 100644
--- a/executable/Uninstall.re
+++ b/executable/Uninstall.re
@@ -1,41 +1,42 @@
open Fnm;
-open Lwt;
+open Lwt.Infix;
let run = (~version) => {
- Versions.getInstalledVersions()
- >|= List.find_opt(x => Versions.Local.(x.name == version))
- >>= (
- installedVersion =>
- switch (installedVersion) {
- | None =>
- Logger.error(
-
- "The version "
- version
- " is not installed."
- ,
- );
- exit(1);
- | Some(installedVersion) =>
- Logger.debug(
-
- "Uninstalling node "
-
- Versions.Local.(installedVersion.name)
-
- ,
- );
- let%lwt _ = Versions.Local.remove(installedVersion);
- Logger.info(
-
- "Node version "
-
- Versions.Local.(installedVersion.name)
-
- " has correctly been removed."
- ,
- )
- |> Lwt.return;
- }
- );
+ let version = Versions.format(version);
+
+ let%lwt installedVersion =
+ Versions.getInstalledVersions()
+ >|= List.find_opt(x => Versions.Local.(x.name == version));
+
+ switch (installedVersion) {
+ | None =>
+ Logger.error(
+
+ "The version "
+ version
+ " is not installed."
+ ,
+ );
+ exit(1);
+ | Some(installedVersion) =>
+ Logger.debug(
+
+ "Uninstalling node "
+
+ Versions.Local.(installedVersion.name)
+
+ ,
+ );
+ let%lwt _ = Versions.Local.remove(installedVersion);
+ Logger.info(
+
+ "Node version "
+
+ Versions.Local.(installedVersion.name)
+
+ " has correctly been removed."
+ ,
+ );
+ Lwt.return_unit;
+ };
};
diff --git a/executable/Use.re b/executable/Use.re
index 945cfd2..8771984 100644
--- a/executable/Use.re
+++ b/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 =
diff --git a/library/Http.re b/library/Http.re
index b02aafb..55b7d48 100644
--- a/library/Http.re
+++ b/library/Http.re
@@ -1,4 +1,4 @@
-open Lwt;
+open Lwt.Infix;
open Cohttp;
open Cohttp_lwt_unix;
diff --git a/library/Versions.re b/library/Versions.re
index 19353d3..500fa62 100644
--- a/library/Versions.re
+++ b/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(
() =>