diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-05-23 00:23:12 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-05-23 00:23:12 +0000 |
| commit | 2190193397596663c4de4f51f8355300c1833997 (patch) | |
| tree | e5271e59c66e0ebac325dff3ac798a1ad628dc87 | |
| parent | eafeb4955059732f2e5febe4991777df8b00d52a (diff) | |
| download | Sakura-2190193397596663c4de4f51f8355300c1833997.tar.gz Sakura-2190193397596663c4de4f51f8355300c1833997.zip | |
Migrate `Server` over
| -rw-r--r-- | bin/server.ml | 2 | ||||
| -rw-r--r-- | lib/condition.ml | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/bin/server.ml b/bin/server.ml index c2a4957..816a460 100644 --- a/bin/server.ml +++ b/bin/server.ml @@ -7,6 +7,6 @@ let () = end; match System.run_from_config Sys.argv.(1) with | Error e -> - Printf.eprintf "Couldn't initialize: %s\n%!" e; + Printf.eprintf "Couldn't initialize: %s\n%!" e.name; exit 1 | Ok run -> run () 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) |