Simplify pattern match that did same thing with result in both branches

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Dec 26, 2018 · 0b0f703 · 0b0f703
1 parent 1f78434
commit 0b0f703
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/build_system.ml b/src/build_system.ml
@@ -1164,11 +1164,7 @@ let get_file_spec_other t fn =
   let dir = Path.parent_exn fn in
   if Path.is_in_build_dir dir then
     load_dir t ~dir;
-  match Path.Table.find t.files fn with
-  | Some file ->
-    Fiber.return (Some file)
-  | None ->
-    Fiber.return None
+  Fiber.return (Path.Table.find t.files fn)
 
 and get_file_spec t path =
   match Path.Table.find t.files path with