Alpha: fix colliding JSON schema definitions

This commit is contained in:
Benjamin Canou 2017-12-16 00:50:20 +01:00 committed by Grégoire Henry
parent 6e629584ff
commit cfd5151279

View File

@ -2166,7 +2166,7 @@ let () =
"constant", Constant_namespace ; "constant", Constant_namespace ;
"instruction", Instr_namespace ] in "instruction", Instr_namespace ] in
let kind_enc = let kind_enc =
def "primitiveNamespace" @@ def "expressionKind" @@
describe describe
~title: "Expression kind" ~title: "Expression kind"
~description: ~description: