diff --git a/compile.ml b/compile.ml index f80c23f..474be8d 100644 --- a/compile.ml +++ b/compile.ml @@ -131,4 +131,7 @@ let compile config = let compiled = List.map (fun expr -> Command.AddRule { family; table; chain; expr }) exprs in - Command.FlushRuleset :: compiled + Command.FlushRuleset + :: Command.AddTable { family; name = table } + :: Command.AddChain { family; table; name = chain } + :: compiled