model.ml in trackler-2.0.3.5

- old
+ new

@@ -1,15 +1,17 @@
 open Core.Std
 
 open Utils
 
 type parameter =
+  | Null
   | String of string
   | Float of float
   | Int of int
   | Bool of bool
   | StringList of (string list)
+  | IntList of (int list)
   | IntStringMap of ((string * int) list) [@@deriving eq, show]
 
 type 'a elements = (string * 'a) list [@@deriving eq, show]
 
 type case = {
@@ -26,12 +28,14 @@
 
 let surround (ch: char) (s: string): string =
   Char.to_string ch ^ s ^ Char.to_string ch
 
 let parameter_to_string = function
+  | Null -> "null"
   | String s -> String.escaped s
   | Float f -> Float.to_string f
   | Int n -> Int.to_string n
   | Bool b -> Bool.to_string b
   | StringList xs -> "[" ^ String.concat ~sep:"; " (List.map ~f:(surround '\"' >> String.escaped) xs) ^ "]"
+  | IntList xs -> "[" ^ String.concat ~sep:"; " (List.map ~f:Int.to_string xs) ^ "]"
   | IntStringMap xs -> "[" ^ String.concat ~sep:"; "
                          (List.map xs ~f:(fun (k,v) -> "(\"" ^ String.escaped k ^ "\", " ^ Int.to_string v ^ ")")) ^ "]"