[gen_settings] fix bug when target is not specified (use default list)

This commit is contained in:
Gautier Hattenberger
2014-10-15 18:11:26 +02:00
parent 878abc83eb
commit c588f047e6
+1 -1
View File
@@ -290,7 +290,7 @@ let join_xml_files = fun xml_files ->
then begin
(* test if the module is loaded or not *)
if List.exists (fun n ->
let t = ExtXml.attrib_or_default n "target" "" in
let t = ExtXml.attrib_or_default n "target" Gen_common.default_module_targets in
Str.string_match (Str.regexp (".*"^target^".*")) t 0
) (Xml.children xml)
then List.filter (fun t -> Xml.tag t = "settings") (Xml.children xml)