From 1fc15b6fe762343f05b052682977d2d3080d1043 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 23 May 2026 00:12:07 +0000 Subject: Migrate `Configuration` over --- lib/condition.ml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/condition.ml') diff --git a/lib/condition.ml b/lib/condition.ml index e5c44b7..c0e4a12 100644 --- a/lib/condition.ml +++ b/lib/condition.ml @@ -9,6 +9,8 @@ end let of_sexp (expr : Sexplib.Sexp.t) = new literal expr let of_string (s : string) = new literal (Sexplib.Sexp.Atom s) +let of_list (f : 'a -> serializable) (l : 'a list) : serializable = + new literal (Sexplib.Sexp.List (List.map (fun e -> (f e)#as_sexp) l)) type t = { name : string; properties : (string, serializable) BatMap.t } -- cgit v1.2.3