diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2025-01-17 20:48:43 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2025-01-22 12:22:26 +0100 |
| commit | 8e012f4804ecf1665819e761283120a3c0e73643 (patch) | |
| tree | c168efe3e1f0edf5e45695c643e62b3e5447be37 /lib/configuration/syntax.ml | |
| parent | bf2af26d896bb499f2c312a4f1ecd3210e2d7780 (diff) | |
Switched from OUnit to alcotest
Diffstat (limited to 'lib/configuration/syntax.ml')
| -rw-r--r-- | lib/configuration/syntax.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/configuration/syntax.ml b/lib/configuration/syntax.ml index 253720e..ee47277 100644 --- a/lib/configuration/syntax.ml +++ b/lib/configuration/syntax.ml @@ -21,6 +21,7 @@ module Extern = struct allow_missing : bool; match_rule : string option; } + [@@deriving show, eq] (** Describe a relation beteween two tables *) let toml_of_extern extern = @@ -28,7 +29,7 @@ module Extern = struct [ ( "intern_key", Otoml.string - @@ ImportExpression.Repr.repr ~top:true Path.repr extern.intern_key ); + @@ ImportExpression.Repr.repr ~top:true Path.show extern.intern_key ); ( "extern_key", Otoml.string @@ ImportExpression.Repr.repr ~top:true @@ -67,7 +68,7 @@ let repr t = let repr_expression_list l = Otoml.array (List.map l ~f:(fun v -> - Otoml.string (ImportExpression.Repr.repr ~top:true Path.repr v))) + Otoml.string (ImportExpression.Repr.repr ~top:true Path.show v))) in let sheet = |