Avoid using a _ pattern where it's not necessary

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Aug 5, 2018 · fe6fae0 · fe6fae0
1 parent 0e6dda2
commit fe6fae0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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