Fixes #11: Don't throw in nonexistent directory on `fnm ls` + run `esy fmt` on codebase (#15)

executable/Env.re

@@ -9,7 +9,7 @@ let run = isFishShell => {
     Console.log(
       Printf.sprintf("export PATH=%s/bin:$PATH", Directories.currentVersion),
     );
-  }
+  };
 
   Lwt.return();
 };

executable/FnmApp.re

@@ -91,9 +91,7 @@ let env = {
 
   let isFishShell = {
     let doc = "Output an env configuration for fish shell.";
-    Arg.(
+    Arg.(value & flag & info(["fish"], ~doc));
-      value & flag & info(["fish"], ~doc)
-    );
   };
 
   (

executable/ListLocal.re

@@ -1,9 +1,14 @@
 open Fnm;
 
-let run = () =>
+exception Cant_read_local_versions;
+
+let main = () =>
   Versions.Local.(
     {
-      let%lwt versions = Versions.getInstalledVersions() |> Result.toLwt;
+      let%lwt versions =
+        Versions.getInstalledVersions()
+        |> Result.mapError(_ => Cant_read_local_versions)
+        |> Result.toLwtErr;
       let currentVersion = Versions.getCurrentVersion();
 
       Console.log("The following versions are installed:");
@@ -22,3 +27,9 @@ let run = () =>
       Lwt.return();
     }
   );
+
+let run = () =>
+  try%lwt (main()) {
+  | Cant_read_local_versions =>
+    Console.log("No versions installed!") |> Lwt.return
+  };

feature_tests/list_local_with_nothing_installed/run.sh

@@ -0,0 +1,6 @@
+#!/bin/bash
+
+set -e
+
+eval $(fnm env)
+fnm ls

library/Result.re

@@ -41,3 +41,9 @@ let toLwt = res =>
   | Error(x) => Lwt.fail_with(x)
   | Ok(x) => Lwt.return(x)
   };
+
+let toLwtErr = res =>
+  switch (res) {
+  | Error(x) => Lwt.fail(x)
+  | Ok(x) => Lwt.return(x)
+  };