diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/condition.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/condition.ml b/lib/condition.ml index c0e4a12..67915b6 100644 --- a/lib/condition.ml +++ b/lib/condition.ml @@ -33,3 +33,6 @@ let to_sexp { name; properties } = |> BatSeq.map (fun (k, v) -> List [Atom k; v#as_sexp]) |> BatList.of_seq in List (Atom name :: properties') + +let to_string e = (* FIXME *) + Sexplib.Sexp.to_string_hum (to_sexp e) |