diff options
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 = |