Fix zone type in config.ml

2 years ago · 429379ccf3
parent e8b7c08b27
commit 429379ccf3
1 changed files with 2 additions and 2 deletions
--- a/config.ml
+++ b/config.ml
@ -15,10 +15,10 @@ type l4_rule =
  | IcmpRule

 type rule = { src : addrs list; dest : addrs list; l4 : l4_rule }
-type config = { zones : (string * zone list) list; rules : rule list }
+type config = { zones : (string * zone) list; rules : rule list }

 (* TODO *)
-let zone_of_json _ = [ Zone "xxx" ]
+let zone_of_json _ = Zone "xxx"

 let addrs_of_json json =
  let open Yojson.Basic.Util in