don't use wildcard match where not necessary

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
2018-06-30 17:17:57 +07:00 · 2018-06-30 17:17:57 +07:00 · 989a1c0058
parent 2b307bfe99
commit 989a1c0058
1 changed files with 1 additions and 1 deletions
--- a/src/main.ml
+++ b/src/main.ml
@ -59,7 +59,7 @@ let setup ?(log=Log.no_log)
      match workspace_file with
      | Some p ->
        Workspace.load ?x ?profile p
-      | _ ->
+      | None ->
        match
          let p = Path.of_string Workspace.filename in
          Option.some_if (Path.exists p) p