From c77cbcb30b6d19c2b4e1826ad0262da220115a3e Mon Sep 17 00:00:00 2001
From: Milo Davis <davis.mil@husky.neu.edu>
Date: Wed, 17 Jan 2018 22:22:20 -0500
Subject: [PATCH] Data_encoding: use constant from ocplib-json-typed

---
 src/lib_data_encoding/data_encoding.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lib_data_encoding/data_encoding.ml b/src/lib_data_encoding/data_encoding.ml
index 8f27c916a..a919fcc5b 100644
--- a/src/lib_data_encoding/data_encoding.ml
+++ b/src/lib_data_encoding/data_encoding.ml
@@ -385,7 +385,7 @@ module Json = struct
     function
     | Null -> null
     | Empty -> empty
-    | Constant s -> string_enum [s, ()]
+    | Constant s -> constant s
     | Ignore -> unit
     | Int8 -> ranged_int ~minimum:~-(1 lsl 7) ~maximum:((1 lsl 7) - 1) "int8"
     | Uint8 -> ranged_int ~minimum:0 ~maximum:((1 lsl 8) - 1) "uint8"