Add ipv4 and ipv6 functions to Expr
This commit is contained in:
parent
46bb83da92
commit
d6e5e32b79
1 changed files with 3 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue