Avoid using a _ pattern where it's not necessary

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
2018-08-05 22:00:05 +03:00 · 2018-08-05 22:00:05 +03:00 · fe6fae0ff0
parent 0e6dda2032
commit fe6fae0ff0
1 changed files with 2 additions and 1 deletions
--- a/src/dir_contents.ml
+++ b/src/dir_contents.ml
@ -612,7 +612,8 @@ let rec get sctx ~dir =
                              ~modules:(modules_of_files ~dir:d.ctx_dir ~files))
          ; mlds = lazy (build_mlds_map d ~files)
          }
-        | _ ->
+        | Some (_, None)
+        | None ->
          { kind = Standalone
          ; dir
          ; text_files = String.Set.empty