From 429379ccf3dda70c185f8d34d66977197d3c6ef6 Mon Sep 17 00:00:00 2001
From: Jeltz <jeltz@auro.re>
Date: Mon, 29 Aug 2022 22:51:47 +0200
Subject: [PATCH] Fix zone type in config.ml

---
 config.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/config.ml b/config.ml
index 93e023d..2d0cf3b 100644
--- 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