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

Add ipv4 and ipv6 functions to Expr

Browse source
This commit is contained in:
jeltz 2022-09-06 19:35:03 +02:00
parent 46bb83da92
commit d6e5e32b79
Signed by: jeltz
GPG key ID: 800882B66C0C3326
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
nftables.ml
View file

@ -66,6 +66,9 @@ module Expr = struct
| Range : 'a t * 'a t -> 'a t | Range : 'a t * 'a t -> 'a t
| Payload : 'a Payload.t -> 'a t | Payload : 'a Payload.t -> 'a t
let ipv4 x = Ipv4 x
let ipv6 x = Ipv6 x
let rec to_json : type a. a t -> Yojson.Basic.t = function let rec to_json : type a. a t -> Yojson.Basic.t = function
| String str -> `String str | String str -> `String str
| Number num -> `Int num | Number num -> `Int num