"conf" missing n the var/replay path ?????

This commit is contained in:
Pascal Brisset
2008-03-17 12:40:16 +00:00
parent e38c4b80b1
commit 868da1f5d6
+1 -1
View File
@@ -49,7 +49,7 @@ let store_conf = fun conf acs ->
if ExtXml.tag_is x "aircraft" then
if List.mem (ExtXml.attrib x "ac_id") acs then
let w = fun s ->
let f = replay_dir // ExtXml.attrib x s in
let f = replay_dir // "conf" // ExtXml.attrib x s in
write_xml f (ExtXml.child x s);
f in
ignore (w "airframe");