diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-05-23 00:12:07 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-05-23 00:13:22 +0000 |
| commit | 1fc15b6fe762343f05b052682977d2d3080d1043 (patch) | |
| tree | b2f6a3678e2eec44f43ae7dc70346d11a7068310 /lib/condition.ml | |
| parent | 614700914d13c8762a2af7a779d808a240e99ee6 (diff) | |
| download | Sakura-1fc15b6fe762343f05b052682977d2d3080d1043.tar.gz Sakura-1fc15b6fe762343f05b052682977d2d3080d1043.zip | |
Migrate `Configuration` over
Diffstat (limited to 'lib/condition.ml')
| -rw-r--r-- | lib/condition.ml | 2 |
1 files changed, 2 insertions, 0 deletions
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 } |