6 lines
232 B
OCaml
6 lines
232 B
OCaml
let json = Yojson.Basic.from_file "config.json"
|
|
let config = Config.of_json json
|
|
let compiled = Compile.compile config
|
|
let nftables = Nftables.to_json compiled
|
|
|
|
let () = Format.printf "%s\n" (Yojson.Basic.pretty_to_string nftables)
|