aurore/firewall
10
0
Fork 0
Code Issues Pull requests Releases Activity

Fix zone type in config.ml

Browse source
This commit is contained in:
jeltz 2022-08-29 22:51:47 +02:00
parent e8b7c08b27
commit 429379ccf3
Signed by: jeltz
GPG key ID: 800882B66C0C3326
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
config.ml
View file

@ -15,10 +15,10 @@ type l4_rule =
| IcmpRule | IcmpRule
type rule = { src : addrs list; dest : addrs list; l4 : l4_rule } 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 *) (* TODO *)
let zone_of_json _ = [ Zone "xxx" ] let zone_of_json _ = Zone "xxx"
let addrs_of_json json = let addrs_of_json json =
let open Yojson.Basic.Util in let open Yojson.Basic.Util in