Remove extra is standard check that is already done in Osl.eval
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
5dd218c0b8
commit
621c666610
|
@ -417,11 +417,8 @@ let build_mlds_map (d : Super_context.Dir_with_jbuild.t) ~files =
|
||||||
in
|
in
|
||||||
List.filter_map d.stanzas ~f:(function
|
List.filter_map d.stanzas ~f:(function
|
||||||
| Documentation doc ->
|
| Documentation doc ->
|
||||||
let mlds = Lazy.force mlds in
|
|
||||||
let mlds =
|
let mlds =
|
||||||
if Ordered_set_lang.is_standard doc.mld_files then
|
let mlds = Lazy.force mlds in
|
||||||
mlds
|
|
||||||
else
|
|
||||||
Ordered_set_lang.String.eval_unordered doc.mld_files
|
Ordered_set_lang.String.eval_unordered doc.mld_files
|
||||||
~parse:(fun ~loc s ->
|
~parse:(fun ~loc s ->
|
||||||
match String.Map.find mlds s with
|
match String.Map.find mlds s with
|
||||||
|
|
Loading…
Reference in New Issue