model.ml in trackler-2.0.6.1

- old
+ new

@@ -8,10 +8,11 @@
   | Float of float
   | Int of int
   | Bool of bool
   | StringList of (string list)
   | IntList of (int list)
+  | IntTupleList of ((int * int) list)
   | IntStringMap of ((string * int) list) [@@deriving eq, show]
 
 type 'a elements = (string * 'a) list [@@deriving eq, show]
 
 type case = {
@@ -35,7 +36,8 @@
   | 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) ^ "]"
+  | IntTupleList xs -> "[" ^ String.concat ~sep:"; " (List.map xs ~f:(fun (x,y) -> sprintf "(%d,%d)" x y)) ^ "]"
   | IntStringMap xs -> "[" ^ String.concat ~sep:"; "
                          (List.map xs ~f:(fun (k,v) -> "(\"" ^ String.escaped k ^ "\", " ^ Int.to_string v ^ ")")) ^ "]"