[fix] node name for modules' datalink event

This commit is contained in:
Gautier Hattenberger
2014-02-16 14:16:30 +01:00
parent 09cea2f62e
commit 607dd13e47
+1 -1
View File
@@ -158,7 +158,7 @@ let xml_of_event = fun l ->
List.map (fun n -> Xml.Element ("event", [("fun", n)], [])) l;;
let xml_of_datalink = fun l ->
List.map (fun (m, n) -> Xml.Element ("init", [("message", m); ("fun", n)], [])) l;;
List.map (fun (m, n) -> Xml.Element ("datalink", [("message", m); ("fun", n)], [])) l;;
let xml_makefile_of_name = fun n ->
[Xml.Element ("makefile", [], [