Commit bfedc8ba authored by Bruno Guillaume's avatar Bruno Guillaume

typo

parent c3a22075
...@@ -408,7 +408,7 @@ module Rule = struct ...@@ -408,7 +408,7 @@ module Rule = struct
`Assoc `Assoc
([ ([
("rule_name", `String t.name); ("rule_name", `String t.name);
("match", basic_to_json ?domain (fst t.pattern)); ("pattern", basic_to_json ?domain (fst t.pattern));
("without", `List (List.map (basic_to_json ?domain) (snd t.pattern))); ("without", `List (List.map (basic_to_json ?domain) (snd t.pattern)));
("commands", `List (List.map (Command.to_json ?domain) t.commands)) ("commands", `List (List.map (Command.to_json ?domain) t.commands))
] ]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment