Add ipv4 and ipv6 functions to Expr

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

View file

@ -66,6 +66,9 @@ module Expr = struct
| Range : 'a t * 'a 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
| String str -> `String str
| Number num -> `Int num