Add "add table" and "add chain" commands

This commit is contained in:
jeltz 2022-09-07 06:22:22 +02:00
parent ae9d67eb8a
commit 713fb018fc
Signed by: jeltz
GPG key ID: 800882B66C0C3326

View file

@ -131,4 +131,7 @@ let compile config =
let compiled = let compiled =
List.map (fun expr -> Command.AddRule { family; table; chain; expr }) exprs List.map (fun expr -> Command.AddRule { family; table; chain; expr }) exprs
in in
Command.FlushRuleset :: compiled Command.FlushRuleset
:: Command.AddTable { family; name = table }
:: Command.AddChain { family; table; name = chain }
:: compiled